Cod sursa(job #115864)

Utilizator asafteirobertAsaftei Robert asafteirobert Data 17 decembrie 2007 10:49:44
Problema Multiplu Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 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 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.