比赛代码 - COGS

比赛	20140714下午练习	评测结果	AAAAAAAAAA
题目名称	跳马问题	最终得分	100
用户昵称	(⊙o⊙)…	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-07-14 14:37:37

显示代码纯文本

    var m,n,i,j:longint;
    a:array[-10..30,-10..30]of longint;
    begin
    assign(input,'horse.in');reset(input);
    assign(output,'horse.out');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.