Cod sursa(job #685539)
Utilizator | Toader Andrei Sorin andrei_toader | Data | 20 februarie 2012 23:35:20 |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.39 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;
k:=k mod (666013*2+2);
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.