关键是找出递推公式
a[n]=a[n-1]+a[n-2]+a[n-3] n>=4;
a[1]=1; a[2]=2;a[3]=4;
下面给出
实现方法
program taijie;
var
n:integer;
sum:integer;
function a(i:integer):integer;
begin
if i=1 then a:=1;
if i=2 then a:=2;
if i=3 then a:=4;
if i>=4 then a:=a(i-1)+a(i-2)+a(i-3);
end;
begin
write('n=');
readln(n);
sum:=a(n);
write('sum=',sum);
readln;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024