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.