点这里查看
讨论 / 为什么只有60分?
996760929 2011-10-15 08:26:00
点我顶贴 收藏 删除
var

n,m,k,i,j:longint；

f:array[0..1000000]of longint；

begin

read(n,m)；

f[0]:=1；

for i:=1 to n do

begin

if i<m then f[i]:=2*f[i-1]；

if i=m then f[i]:=2*f[i-1]-1；

if i>m then f[i]:=2*f[i-1]-f[i-m-1]；

end；

write(f[n])；

end.

#1 世纪末的魔术师@2009-01-15 02:40:00
回复 删除
longint不够。好像要qword。
#2 mhy12345@2011-10-15 08:26:00
回复 删除
用qword
#3 沧海一声喵@2018-01-22 05:25:11
回复 删除
回复 #2 mhy12345：用long long

查看更多回复
提交回复