数列的n个数 - pascal吧

数列的n个数

level 2

旋风影狼楼主

设一个数列的前三个数分别是0 0 1，从第四个数开始，每个数均为该数列的前三个数之和。
输入：
一个数n(n<=30)。
输出：
该数列的第n个数。

2014年01月22日 10点01分 1

level 13

Fallen_Breath

a[1]:=0;
a[2]:=0;
a[3]:=1;
for i:=4 to n do
a[i]:=a[i-1]+a[i-2]+a[i-3];
writeln(a[n]);

2014年01月22日 11点01分 2

level 10

forget天泽一号

波拉茨数列吗！我会！
var
a:array[1..45] of longint;
i,n:integer;
begin
readln(n);
a[1]:=0;
a[2]:=1;
for i:=3 to 45 do
begin
a[i]:=a[i-1]+a[i-2];
end;
writeln(a[n]);
end. 保重！ [滑稽]

2014年01月22日 12点01分 3