Cod sursa(job #1094624)

Utilizator CristinutaaCristina Cristinutaa Data 29 ianuarie 2014 17:30:17
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var
  n: longint; f: text;

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

begin
  assign(f, 'kfib.in'); reset(f);
  readln(f, n);
  close(f);
  assign(f, 'kfib.out'); rewrite(f);
  writeln(f, fib(n) mod  666013);
  close(f);
end.