Pagini recente » Cod sursa (job #859238) | Cod sursa (job #678900) | Cod sursa (job #890540) | Cod sursa (job #2402344) | Cod sursa (job #283722)
Cod sursa(job #283722)
var a,b:text;
n,p,i,j,s:longint;
bl:boolean;
begin
//WoooOOOOoooOOOooo!
assign (a,'frac.in'); reset(a);
assign (b,'frac.out'); rewrite(b);
read (a,n);
read (a,p);
j:=1;
s:=1;
repeat
bl:=false;
i:=1;
j:=j+1;
//div
repeat
i:=i+1;
if (n mod i = 0) and (j mod i = 0) then
bl:=true;
until (i = j) OR (bl = true);
if bl = false then
s:=s+1;
if s = p then writeln(b,j);
until s = p;
close(a); close(b);
end.