Cod sursa(job #849198)
| Utilizator |  Caliman Alexandru caliman_al |
Data | 6 ianuarie 2013 18:22:22 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.27 kb |
var i,k,a,b:longint;
v:array[0..5000000] of longint;
f,g:text;
begin
assign (f,'kfib.in');
assign (g,'kfib.out');
reset(f);
rewrite(g);
read(f,k);
v[0]:=0;
v[1]:=1;
for i:= 2 to k do
v[i]:=(v[i-1]+v[i-2]) mod 666013;
writeln(g,v[k]);
close(g);
end.
