比赛代码 - COGS

比赛	20140714下午练习	评测结果	AAAAAAAAAA
题目名称	跳马问题	最终得分	100
用户昵称	长江农夫	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-07-14 15:16:31

显示代码纯文本

program horse;
var m,n,i,j:longint;
a:array[-10..30,-10..30]of longint;
begin
assign(input,'horse.in');
assign(output,'horse.out');
reset(input);
rewrite(output);
readln(m,n);
fillchar(a,sizeof(a),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-1,j+2]+a[i-2,j-1]+a[i-2,j+1];
writeln(a[n,m]);
close(input);
close(output);
end.