Cod sursa(job #557426)
| Utilizator |  Little Lady lady |
Data | 16 martie 2011 17:38:16 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var f1,i,f2,n,f3:longint;
begin
assign(input,'kfib.in');reset(input);
assign(output,'kfib.out');rewrite(output);
readln(n);
f1:=0;
f2:=1;
f3:=1;
for i:=1 to n-2 do begin
f1:=f2;
f2:=f3;
f3:=(f1+f2) mod 666013;
end;
write(f3);
close(input);close(output);
end.
