Pagini recente » Cod sursa (job #2279562) | Cod sursa (job #1165934) | Cod sursa (job #2717084) | Ciorna | Cod sursa (job #129667)
Cod sursa(job #129667)
Program multiplu;
Var f,ff:text;
a,b,g,i,l,ll:longint;
m:int64;
nr:array[0..110000] of string[100];
r:array[0..110000] of longint;
h:array[0..2000900] of boolean;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
repeat
r:=a mod b;
a:=b;
b:=r;
until(r=0);
cmmdc:=a;
end;
Begin
assign(f,'multiplu.in');
reset(f);
assign(ff,'multiplu.out');
rewrite(ff);
readln(f,a,b);
m:=(a*b) div cmmdc(a,b);
r[1]:=1;
nr[1]:='1';
l:=1;
ll:=1;
while(1=1) do
begin
if g=0 then
if h[(r[l]*10) mod m]=FALSE then
begin
ll:=ll+1;
h[(r[l]*10) mod m]:=TRUE;
r[ll]:=(r[l]*10) mod m;
nr[ll]:=nr[l]+'0';
if r[ll]=0 then begin g:=0; Writeln(ff,nr[ll]); break; end;
end;
if g=0 then
if h[(r[l]*10+1) mod m]=FALSE then
begin
ll:=ll+1;
h[(r[l]*10+1) mod m]:=TRUE;
r[ll]:=(r[l]*10+1) mod m;
nr[ll]:=nr[l]+'1';
if r[ll]=0 then begin g:=0; Writeln(ff,nr[ll]); break; end;
end;
inc(l);
end;
close(f);
close(ff);
End.