比赛 20140714下午练习 评测结果 AAAAAAAAAA
题目名称 跳马问题 最终得分 100
用户昵称 甘罗 运行时间 0.005 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-07-14 14:36:47
显示代码纯文本
var
m,n:integer;
a:array[-20..22,-20..22]of longint;
begin
assign(input,'horse.in');assign(output,'horse.out');
reset(input);rewrite(output);
read(m,n);
a[1,1]:=1;
for n:=1 to n do
for m:=1 to m do
begin
a[m+2,n+1]:=a[m+2,n+1]+a[m,n];
a[m-2,n+1]:=a[m-2,n+1]+a[m,n];
a[m+1,n+2]:=a[m+1,n+2]+a[m,n];
a[m-1,n+2]:=a[m-1,n+2]+a[m,n];
end;
writeln(a[m,n]);
close(input);close(output);
end.