Cod sursa(job #264130)

Utilizator botaMihai Botezatu Catalin bota Data 21 februarie 2009 15:25:35
Problema Frac Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var x,y,i,nr,n,p:longint;
    k,g:text;
begin
assign(k,'frac.in');
reset(k);
assign(g,'frac.out');
rewrite(g);
read(k,n);
read(k,p);
repeat
i:=i+1;
x:=i;
y:=n;
while x<>y do
if x>y then x:=x-y
       else y:=y-x;
if x=1 then nr:=nr+1;
if p=nr then write(g,i);
until nr=p;
close(k);
close(g);
end.