Cod sursa(job #283722)
Utilizator | Marginean Bogdan Alexandru Patrunjelu | Data | 19 martie 2009 16:58:47 |
---|---|---|---|
Problema | Frac | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
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.