Pagini recente » Monitorul de evaluare | Cod sursa (job #2432840) | Istoria paginii runda/simulareoji2015cl9 | Cod sursa (job #1443569) | Cod sursa (job #363539)
Cod sursa(job #363539)
type vector=array[1..10000000] of int64;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
r:=a mod b;
while r<>0 do begin
a:=b;b:=r;r:=a mod b;
end;
cmmdc:=b;
end;
var a,b,m:longint;
i,z:int64;
v:vector;
ok:boolean;
begin
assign(input,'multiplu.in');reset(input);
assign(output,'multiplu.out');rewrite(output);
read(a,b);
m:=(a*b)div cmmdc(a,b);
v[1]:=10;
v[2]:=11;
i:=2;z:=2;
repeat
ok:=false;
inc(i,4);
if v[z-1] mod m=0 then begin write(v[z-1]);ok:=true;end
else if v[z] mod m=0 then begin write(v[z]);ok:=true;end
else begin v[i-3]:=v[z-1]*10;v[i-2]:=v[z]*10;
v[i-1]:=v[z-1]*10+1;v[i]:=v[z]*10+1;end;
inc(z,2);
until ok;
close(input);close(output);
end.