记录编号 137498 评测结果 AAAAAAAAAA
题目名称 跳马问题 最终得分 100
用户昵称 Gravatarhelloworld123 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2014-11-04 20:46:45 内存使用 0.17 MiB
显示代码纯文本
program cogs49;
const
  maxn=20;
  dx:array[1..4] of longint=(-2,-1,1,2);
  dy:array[1..4] of longint=(1,2,2,1);
var
 m,n,i,j,x,y,k:longint;
 f:array[1..maxn,1..maxn] of longint;
function heshi(x,y:longint):boolean;
begin
   if (x>0)and(x<=m)and(y>0)and(y<=n) then exit(true);
   exit(false);
end;

begin
  assign(input,'horse.in'); reset(input);
  assign(output,'horse.out'); rewrite(output);
   readln(m,n);
   f[1,1]:=1;
   for j:=1 to n do
    for i:=1 to m do
      begin
      for k:=1 to 4 do
       begin
        x:=i+dx[k];
        y:=j+dy[k];
        if heshi(x,y) then
           f[x,y]:=f[i,j]+f[x,y];
       end;
      end;


        writeln(f[m,n]);
  close(input); close(output);
end.