赞 共回答了16个问题采纳率：93.8% 举报
此数列为斐波那契数列
var
n,i:integer;
a:array [1..100] of longint;
begin
read(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.
var
n,i:integer;
a:array [1..100] of longint;
begin
read(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.
1年前
5
sc-ms-lili 幼苗
共回答了9个问题 举报
请问n最大是多少，如果不大用下面的程序
var f:array[0..100]of qword;
i,n:longint;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=2 to n do
f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
end.
var f:array[0..100]of qword;
i,n:longint;
begin
readln(n);
a[1]:=1;a[2]:=1;
for i:=2 to n do
f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
end.
1年前
0
可能相似的问题
-
1年前4个回答
-
1年前2个回答
-
1年前3个回答
-
有数列1、1、2、3、5、8、13、21,请填出下一个数字?
1年前8个回答
-
1年前2个回答
-
求证明数列是收敛数列并找出极限.定义一个数列（an）,使得：
1年前1个回答
你能帮帮他们吗
-
1年前
-
1年前
-
1年前
-
1年前
-
1年前