Cod sursa(job #1094625)

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

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);
  read(f, n);
  close(f);
  assign(f, 'kfib.out'); rewrite(f);
  m := fib(n);
  write(f, m);
  close(f);
end.