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.