Question

题目描述 斐波那契数列：已知数串1,1,2,3,5,8,13,……,从第3个数起每个数都等于它前面相邻的两个

Answer 1

var n,i:longint;

a:array[1..1000] of longint;

begin

readln(n);

a[1]:=1; {先设一下前两个数,都是1}

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2]; {从第3个数起,每个数都等于它前面相邻的两个数之和}

writeln(a[n]);

end.

希望我的回答能帮到你.