Pagini recente » Cod sursa (job #282283) | Cod sursa (job #582544) | Cod sursa (job #1710843) | Cod sursa (job #2945589) | Cod sursa (job #159512)
Cod sursa(job #159512)
program multiplu_dirichlet;
var f,g:text;
a,b,m:longint;
rest:array[1..16000]of longint;
function cmmmc(a,b:longint):longint;
var cmmdc,a1,b1,r:longint;
begin
a1:=a;
b1:=b;
repeat
r:=a1 mod b1;
a1:=b1;
b1:=r;
until b1=0;
cmmdc:=a1;
cmmmc:=(a div cmmdc)*b;
end;
procedure afla;
var m:longint;
k,i,j,x:longint;
ok:boolean;
begin
m:=cmmmc(a,b);
rest[1]:=1;
i:=1;
repeat
i:=i+1;
ok:=false;
rest[i]:=(rest[i-1]*10+1)mod m;
if rest[i]=0 then
begin
k:=0;
repeat
write(g,1);
k:=k+1;
until k=i;
write(g,0);
ok:=true;
end
else
begin
j:=1;
repeat
if rest[j]=rest[i] then
begin
k:=0;
repeat
write(g,1);
k:=k+1;
until k=i;
x:=0;
repeat
write(g,0);
x:=x+1;
until x=j;
ok:=true;
end
else
j:=j+1;
until j=i;
end;
until ok=true;
end;
begin
assign(f,'multiplu.in');
reset(f);
assign(g,'multiplu.out');
rewrite(g);
read(f,a,b);
afla;
close(f);
close(g);
end.