Cod sursa(job #604196)
Utilizator | Iulian iu.ciocoiu | Data | 20 iulie 2011 20:00:13 |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.68 kb |
program sir_fibonacci;
var t1,t2,t,i,k:longint;
f,g:text;
begin
assign (f,'kfib.in'); reset (f);
assign (g,'kfib.out'); rewrite (g);
read (f,k);
t1:=0;
t2:=1;
if (k=1) then write (g,t1)
else if (k=2) then write (g,t2)
else begin for i:=2 to k do begin t:=(t1+t2) mod 666013;
t1:=t2 mod 666013;
t2:=t mod 666013;
end;
end;
writeln (g,t);
close (f);
close (g);
end.