Cod sursa(job #3255)
Utilizator | J. Random Hacker Zervax | Data | 22 decembrie 2006 21:20:06 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
var n,a,b,c,d,e,f,k,nr:0..2000000;
fin,fout:text;
begin
assign(fin,'fractii.in'); reset(fin);
assign(fout,'fractii.out'); rewrite(fout);
readln(fin,n);
nr:=0;
a:=0; b:=1; c:=1; d:=n;
while c<n do
begin
inc(nr);
k:=(n+b) div d;
e:=k*c-a; f:=k*d-b; writeln(e,' ',f);
a:=c; b:=d; c:=e; d:=f;
end;
nr:=nr*2-1;
writeln(fout,nr);
close(fin); close(fout);
end.