记录编号 187292 评测结果 AAAAAAAAAA
题目名称 跳马问题 最终得分 100
用户昵称 Gravatar长江农夫 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2015-09-18 13:23:22 内存使用 0.18 MiB
显示代码纯文本
program horse;
var
a:array[-1..30,-1..100] of longint;
m,n,i,j:integer;
begin
assign(input,'horse.in');
assign(output,'horse.out');
reset(input);
rewrite(output);
read(m,n);
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=0;
a[1,1]:=1;
for i:=2 to n do
 for j:=1 to m do
  a[i,j]:=a[i-1,j-2]+a[i-2,j-1]+a[i-2,j+1]+a[i-1,j+2];
writeln(a[n,m]);
close(input);
close(output);
end.