Cod sursa(job #413960)

Utilizator ivanhoeNociv Hasis ivanhoe Data 9 martie 2010 14:57:37
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var
 f1,f2,fn:longint;
 k,i:integer;
 f,g:text;
begin
 assign(f,'kfib.in');
 reset(f);
 readln(f,k);
 close(f);
 i:=1;
 f1:=1;
 f2:=1;
 while (i<k) do
  begin
   fn:=f1+f2;
   f1:=f2;
   f2:=fn;
   i:=i+1;
  end;
 assign(g,'kfib.out');
 rewrite(g);
 writeln(g,f1 mod 666013);
 close(g);
end.