VBOARD - Bàn cờ

Tác giả: flashmt

Ngôn ngữ: Pascal

const fi='';
      fo='';
      maxn=500;
var n,i,j,t,m,u,x,y:longint;
    f:array[0..maxn,0..maxn] of longint;

begin
     assign(input,fi); reset(input);
     assign(output,fo); rewrite(output);
     readln(n);
     for i:=1 to n do
     begin
          x:=0;
          for j:=1 to n do
          begin
               read(t);
               if not odd(j+i) then x:=x+t
               else x:=x-t;
               f[i,j]:=f[i-1,j]+x;
          end;
          readln;
     end;
     readln(m);
     for i:=1 to m do
     begin
          readln(t,u,x,y);
          writeln(abs(f[x,y]-f[x,u-1]-f[t-1,y]+f[t-1,u-1]));
     end;
     close(input); close(output);
end.

Download