Cod sursa(job #386001)
| Utilizator |  stancu vlad valytgjiu91 |
Data | 23 ianuarie 2010 21:35:44 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
const m=666031;
const p=2*(666031+1);
var f,g:text;
n,a,b,c:int64;
begin
assign(f,'kfib.in');
reset(f);
assign(g,'kfib.out');
rewrite(g);
readln(f,n);
n:=n-1;
n:=n mod p;
b:=1;
a:=0;
while n>0 do
begin
n:=n-1;
c:=(a+b)mod m;
a:=b;
b:=c;
end;
writeln(g,c);
close(g);
end.
