pascal斐波那契数列

已知faibonacai(费波那契)数列的前几个数分别为1,1,2,3,5,8,13,……,编程求此数列的前n项。输入说明：一行一个整数n

2026年09月20日 19:36

有3个网友回答

网友（1）：

var
n:longint;
function f(k:longint):longint;
begin
if k<=2 then exit(1)
else exit(f(k-1)+f(k-2));
end;
begin
readln(n);
writeln(f(n));
readln;
end.
我用递归的

网友（2）：

var n,i:longint;
a:array[1..100000]of qword;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
writeln(a[n]);
end.

网友（3）：

楼上错了

var n,i:longint;
a:array[1..100000]of qword;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
for i:=1 to n-1 do
write(x[i],' ');
writeln(a[n]);
end.