Cod sursa(job #357586)

Utilizator 05_YohnE1 La5c01 05_Yohn Data 19 octombrie 2009 20:15:26
Problema Multiplu Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.72 kb
var v:array[1..1000]of longint;
a,b,p,u,aux,rez:longint;
ok:boolean;
begin
assign(input,'multiplu.in');reset(input);
assign(output,'multiplu.out');rewrite(output);
read(a,b);
v[1]:=1;
ok:=false;
p:=1; u:=1;
while not ok do begin
      aux:=v[p]*10;
      inc(u); v[u]:=aux;
      if (aux mod a=0)and(aux mod b=0) then begin
                              ok:=true;
                              rez:=aux;
                              end;
      aux:=(v[p]*10)+1;
      inc(u); v[u]:=aux;
      if (aux mod a=0)and(aux mod b=0)then begin
                                  ok:=true;
                                  rez:=aux;
                                  end;
      inc(p);
end;
write(rez);
close(output);
end.