ac1334.pas

Ural(Acm.timus.ru)题解 By Maigo大牛

program ural1334;
const
  dx:array[1..8]of shortint=(-1,-1,-1,0,1,1,1,0);
  dy:array[1..8]of shortint=(-1,0,1,1,1,0,-1,-1);
var
  a:array[0..9,0..9]of byte;
  i,x,y,d:byte;
  c:char;
begin
  fillchar(a,sizeof(a),2);
  for i:=1 to 32 do begin
    readln(c,y);
    x:=ord(c)-96;
    for d:=1 to 8 do
      if a[x+dx[d],y+dy[d]]+i and 1=1 then begin
        writeln(i);
        halt;
      end;
    a[x,y]:=i and 1;
  end;
  writeln('Draw');
end.