Cod sursa(job #115394)

Utilizator borsosborsos adrian borsos Data 16 decembrie 2007 12:30:58
Problema Multiplu Scor 10
Compilator fpc Status done
Runda preONI 2008, Runda 2, Clasele 11-12 Marime 0.85 kb
var f,g:text;
  x,y,a,b:longint;
  ok:boolean;
 {---------------}
 function verif(n:longint):boolean;
 var i:byte;
 begin
 verif:=true;
    while n <> 0 do begin
              if (n mod 10 > 1) then begin verif:=false; break end;
               n:= n div 10 ;
                    end;

 end;
 {----------------}
begin
assign(f,'multiplu.in');
assign(g,'multiplu.out');
rewrite(g);
reset(f);
readln(f,x,y);
a:=x;
b:=y;
ok := true;
while ok do begin
      if a < b then a := a+x else
      if a > b then b := b+y else
      if a = b then
             if verif(a) then break else
                         a:=a+x;
             if (a > 1111111111) or (b > 1111111111) then
                       begin  writeln(g,101101);
                         break;
                         end;
             end;

writeln(g,a);
close(f);
close(g);
end.