测评机： Virmain[1]

得分： 100分

提交日期： 2008-7-5 17:15:00

有效耗时： 该状态没有记录

测试结果1: 测试结果正确

测试结果2: 测试结果正确

测试结果3: 测试结果正确

测试结果4: 测试结果正确

测试结果5: 测试结果正确

program haocc；

var n,m,i,j,k:integer； ans:qword；

f:array[1..50,0..5]of qword；

begin

fillchar(f,sizeof(f),0)；

readln(n,m)；

f[1,0]:=1； f[1,1]:=1；

for i:=2 to n do

begin

for k:=0 to m-1 do

inc(f[i,0],f[i-1,k])；

for j:=1 to m-1 do

f[i,j]:=f[i-1,j-1]；

end；

ans:=0；

for i:=0 to m-1 do

inc(ans,f[n,i])；

writeln(ans)；

end.

(递推，因为数据较大，建议用QWORD类型，避免高精度.)

f[i,j]=f[i-1,j-1] (1<=j<=m-1, f[i,j]表示放到第I个坑，包括第I个坑，与之相连有放核料的坑个数为J）

f[i,0]=f[i-1,0]+f[i-1,1]+....+f[i-1,m-1]

最后结果 ans=f[n,0]+f[n,1]+f[n,2]+....+f[n,m-1]