Cod sursa(job #1094613)
| Utilizator |  Cristina Cristinutaa |
Data | 29 ianuarie 2014 17:21:51 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var n:integer; f:text;
function fib(n:integer):longint;
var x:integer;
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));
close(f);
end.