VBOARD - Bàn cờ
Tác giả: RR
Ngôn ngữ: Pascal
var
i,j,n,m,x,y,u,v:longint;
a,sum:array[0..1011,0..1011] of longint;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]); if (i+j) and 1=1 then a[i,j]:=-a[i,j];
sum[i,j]:=sum[i-1,j]+sum[i,j-1]-sum[i-1,j-1]+a[i,j];
end;
read(m);
for i:=1 to m do
begin
read(x,y,u,v);
writeln(abs(sum[u,v]-sum[x-1,v]-sum[u,y-1]+sum[x-1,y-1]));
end;
end.