Cod sursa(job #189949)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 19 mai 2008 14:20:13
Problema Nunta Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
var i,n:integer;
  f:text;
function Fib(N:integer):extended;
var
  F1, F2:extended;
begin
  if N=0 then Fib:=1.0
         else if N = 1 then Fib := 1.0
    else begin
      F1:=Fib(N-1);
      F2:=Fib(N-2);
      Fib:=F1+F2;
    end;
end;

begin
assign(f,'nunta.in');reset(f);
read(f,n);
close(f);
assign(f,'nunta.out');rewrite(f);
Writeln(f,fib(n):0:0);
close(f);
end.