比赛 20140714下午练习 评测结果 AAAAAAAAAA
题目名称 跳马问题 最终得分 100
用户昵称 NBWang 运行时间 0.001 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-07-14 14:33:23
显示代码纯文本
    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.