讨论 - 代码特别短

讨论 / 代码特别短

cnmmjbd 2012-10-11 06:59:00

点我顶贴收藏删除

var

a:array[-4..51]of qword;

n,m,i,j:longint;

begin

readln(n,m);

a[1]:=1; a[0]:=1;

for i:=2 to n+1 do

for j:=1 to m do

a[i]:=a[i]+a[i-j];

write(a[n+1]);

end.

如果m=2的话就是斐波啦~

查看更多回复

拥有 RQNOJ 账号，您可以：

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0035	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.