Cod sursa(job #629102)

Utilizator andreiseiceanSeicean Andrei andreiseicean Data 2 noiembrie 2011 17:22:22
Problema Al k-lea termen Fibonacci Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
var f,g:text;
    k,i,k1,k2,n:longint;
begin
assign(f,'kfib.in'); assign(g,'kfib.out'); reset(f); rewrite(g);
read(f,k);    k1:=1; k2:=1;   k:=k mod 1332028;
for i:=3 to k do
     begin
        n:=(k1+k2)mod 666013;
        k1:=k2;
        k2:=n;
      end;
write(g,k2);
close(f);close(g);
end.