Cod sursa(job #3256)
Utilizator | J. Random Hacker Zervax | Data | 22 decembrie 2006 23:02:04 |
---|---|---|---|
Problema | Fractii | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 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);
repeat
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;
a:=c; b:=d; c:=e; d:=f;
end;
nr:=nr*2-1;
writeln(fout,nr);
until eof(fin);
close(fin); close(fout);
end.