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的话就是斐波啦~
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0031 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.