Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Fibonacci
Language: PASCAL
Code:
program Fibonacci;
uses wincrt;
var;
function f(x:byte)
begin
if x<3 then
f(x)=1
else
f(x)=f(x-2)+f(x-1);
end;

begin
readln(x);
writeln(f(x));
end.
Comments: