用递归的方法编写函数求斐波那契数列第N项fab(n)={0,1,1,3,5,8,13.......}分析：斐波那契数列具有这样的特点，数列的前俩项都是1，从第三项起，每项数值等于前俩项之和

Question

用递归的方法编写函数求斐波那契数列第N项fab(n)={0,1,1,3,5,8,13.......}
分析：斐波那契数列具有这样的特点，数列的前俩项都是1，从第三项起，每项数值等于前俩项之和

Answer 1

program fibo;var n,i:integer; rs:extended;function fib(m:integer):extended;var a,b:extended;
begin
a:=1;b:=1;if m<=2 then exit(1)else while m>3 do begin
fib:=a+b;a:=b;b:=fib;m:=m-1;end;exit(fib);end;
begin
read(n);writeln(fib(n));end.