Cod sursa(job #1584035)

Utilizator SaniokMDACaliman Alexandru SaniokMDA Data 29 ianuarie 2016 17:42:30
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var
  k, i, n: longint;

function fib(n: integer): integer;
begin
  if n = 0 then fib := 0 else
  if n = 1 then fib := 1 else fib := fib(n - 1) + fib(n - 2);
end;

begin
  assign(input, 'kfib.in');
  assign(output, 'kfib.out');
  reset(input);
  rewrite(output);
  read(k);
  n:=fib(k) mod 666013;
  write(n);
end.