Pagini recente » Profil PavelRazvan | Monitorul de evaluare | Profil M@2Te4i | Cod sursa (job #2473345) | Cod sursa (job #115864)
Cod sursa(job #115864)
program infoarena_multiplu;
var i,j,k,k1,n,a,b,sol:longint;
begin
assign(input,'multiplu.in');
reset(input);
read(a);readln(b);
close(input);
sol:=maxlongint;
for k1:=1 to 10000 do
begin
k:=k1;
while (k<>0)and(k<>1) do
begin
i:=i+k mod 2;
i:=i*10;
k:=k div 2;
end;
i:=i+k;
k:=0;
if (i mod a=0)and(i mod b=0) then begin if i<sol then sol:=i; end;
i:=0;
end;
assign(output,'multiplu.out');
rewrite(output);
writeln(sol);
close(output);
end.