Cod sursa(job #115865)
| Utilizator | Data | 17 decembrie 2007 10:50:50 | |
|---|---|---|---|
| Problema | Multiplu | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.5 kb |
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 1000 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.