Cod sursa(job #363539)

Utilizator basketbalistu92alexandru catalisan basketbalistu92 Data 13 noiembrie 2009 17:56:25
Problema Multiplu Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.75 kb
type vector=array[1..10000000] of int64;

function cmmdc(a,b:longint):longint;
var r:longint;
begin
r:=a mod b;
  while r<>0 do begin
    a:=b;b:=r;r:=a mod b;
  end;
  cmmdc:=b;
end;

var a,b,m:longint;
    i,z:int64;
    v:vector;
    ok:boolean;
begin
assign(input,'multiplu.in');reset(input);
assign(output,'multiplu.out');rewrite(output);
read(a,b);
m:=(a*b)div cmmdc(a,b);
v[1]:=10;
v[2]:=11;
i:=2;z:=2;
  repeat
   ok:=false;
   inc(i,4);
   if v[z-1] mod m=0 then begin write(v[z-1]);ok:=true;end
     else if v[z] mod m=0 then begin write(v[z]);ok:=true;end
     else begin v[i-3]:=v[z-1]*10;v[i-2]:=v[z]*10;
                v[i-1]:=v[z-1]*10+1;v[i]:=v[z]*10+1;end;
   inc(z,2);
  until ok;
close(input);close(output);
end.