Cod sursa(job #114940)

Utilizator gurneySachelarie Bogdan gurney Data 16 decembrie 2007 09:41:41
Problema Multiplu Scor 10
Compilator fpc Status done
Runda preONI 2008, Runda 2, Clasele 11-12 Marime 0.72 kb
program multiplu;
  const
    fin='multiplu.in';
    fout='multiplu.out';
var
  a,b,x,y,n,cif:longint;
  gasit:boolean;

procedure back(k:longint);
  begin
    if gasit then
      exit
    else if (k=cif) then
      begin
        if (n mod a=0)and(n mod b=0) then
          begin
            gasit:=true;
            writeln(n);
          end;
      end
    else
      begin
        n:=n*10;
        back(k+1);
        inc(n);
        back(k+1);
        n:=n div 10;
      end;
  end;

begin
  gasit:=false;
  assign(input,fin);
    reset(input);
    readln(a,b);
  close(input);
  assign(output,fout);
    rewrite(output);
    n:=1;
    for cif:=1 to 9 do
      back(1);
  close(output);
end.