Cod sursa(job #670519)
| Utilizator |  Lajos Pongracz pongraczlajos |
Data | 29 ianuarie 2012 13:10:05 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var f:array[0..10000000] of longint;
i,k:longint;
g:text;
begin
assign(g,'kfib.in');
reset(g);
read(g,k);
close(g);
f[0]:=0;
f[1]:=1;
f[2]:=1;
for i:=3 to k do
f[i]:=(f[i-1]+f[i-2]) mod 666013;
assign(g,'kfib.out');
rewrite(g);
write(g,f[k]);
close(g);
end.
