pascal中一题程序编写题,高手来啊

来源：百度知道编辑：UC知道时间：2024/07/04 08:07:19

题目:前3个数为0.0.1,从第四个数开始,每个数是它前3个数的和,求第20个数的值,最好用斐波那契数列的算法去做,我很急的,最好在2点前写好,会多加点分的~

var
i,j,k:longint;
a:array[0..100] of longint;

begin
a[1]:=0;
a[2]:=0;
a[3]:=1;
for i:=4 to 20 do
a[i]:=a[i-1]+a[i-2]+a[i-3];
write(a[20]);
end.

不需要数组.
begin
a:=0;b:=0;c:=1;d:=a+b+c;
for i:=5 to 20 do
begin
a:=b;b:=c;c:=d;d:=a+b+c;
end;
writeln(d);
end.