Pagini recente » Cod sursa (job #884062) | Cod sursa (job #1077764) | Cod sursa (job #448) | Cod sursa (job #3287051) | Cod sursa (job #114939)
Cod sursa(job #114939)
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.