pascal给出这样一个数列:1 1 2 3 5 8 13 21 34 55 89...问这个数列的第n项是什么

问题描述:

pascal给出这样一个数列:1 1 2 3 5 8 13 21 34 55 89...问这个数列的第n项是什么

此数列为斐波那契数列
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.