ac1045.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1045;
const
  dx:array[1..8]of shortint=(-1,-2,-2,-1,1,2,2,1);
  dy:array[1..8]of shortint=(2,1,-1,-2,-2,-1,1,2);
var
  n,i,x,y,j,ans:longint;
  c:char;
begin
  readln(n);
  for i:=1 to n do begin
    readln(c,y);x:=ord(c)-96;
    ans:=0;
    for j:=1 to 8 do
      if (x+dx[j]>0) and (x+dx[j]<9) and (y+dy[j]>0) and (y+dy[j]<9) then inc(ans);
    writeln(ans);
  end;
end.