记录编号 111896 评测结果 AAAAAAAAAA
题目名称 跳马问题 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2014-07-14 15:03:27 内存使用 0.17 MiB
显示代码纯文本
var
n,m:longint;
a:array[-2..22,-2..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[n+1,m+2]:=a[n+1,m+2]+a[n,m];
  a[n+1,m-2]:=a[n+1,m-2]+a[n,m];
  a[n+2,m+1]:=a[n+2,m+1]+a[n,m];
  a[n+2,m-1]:=a[n+2,m-1]+a[n,m];
  end;
writeln(a[n,m]);
close(input);close(output);
end.