Cod sursa(job #685537)
Utilizator | Toader Andrei Sorin andrei_toader | Data | 20 februarie 2012 23:33:24 |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.37 kb |
program fibo;
var f,g:text;
k,pred,antepred,elcrt,i:longint;
begin
assign (f,'kfib.in') ; reset (f);
assign (g,'kfib.out'); rewrite (g);
read (f,k);
elcrt:=1; pred:=1; antepred:=1;
for i:=3 to k do
begin
antepred:=pred mod 666013; pred:=elcrt mod 666013;
elcrt:=(antepred+pred) mod 666013;
end;
write (G,elcrt);
close (F);
close (g);
end.