Cod sursa(job #283722)

Utilizator PatrunjeluMarginean 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.