Cod sursa(job #1198919)

Utilizator ianic1999Ianic Umanschii ianic1999 Data 17 iunie 2014 17:23:09
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var k,nr:longint;
function fib(x:longint):longint;
 begin
  if (x=1)or(x=2)then fib:=1
   else fib:=fib(x-1)+fib(x-2);
 end;
begin
 assign(input,'kfib.in');
 reset(input);
 read(k);
 close(input);

 nr:=0;
 nr:=fib(k);

 assign(output,'kfib.out');
 rewrite(output);
        write(nr);
 close(output) ;
end.