Trên khu đất ruộng hình chữ nhật, được chia thành từng thửa vuông đều nhau có cạnh là một đơn vị để cho các tá điền thuê lại trồng trọt và canh tác. Tại một số thửa ruộng, bạn Bình cho đào giếng để lấy nước tưới. Vì năm nay trời hạn nên mỗi giếng chỉ đủ nước để tưới cho các thửa ruộng nằm trong bán kính là 2 ô vuông đơn vị
Yêu cầu: Viết chương trình đếm xem có bao nhiêu thửa ruộng không được tưới.
uses crt;
var d:text; n,m,k,x,i,j,kq:longint; a,b:array[1..1000,1..1000]of longint;
begin
clrscr;
assign(d,’input.pas’);reset(d);
readln(d,m,n);
readln(d,k);
for i:=1 to k do readln(d,a[i,1],a[i,2]);
close(d);
assign(d,’output.pas’);rewrite(d);
for x:=1 to k do
for i:=1 to m do
for j:=1 to n do
if (abs(i-a[x,1])<=2)and(abs(j-a[x,2])<=2) then b[i,j]:=1;
for i:=1 to m do
for j:=1 to n do
if b[i,j]=0 then inc(kq);
writeln(d,kq);
close(d);
end.