var f,g:text;
    n,m,i,j,x,y,r,nr,q:longint;
    a:array[1..100000,1..2] of longint;
begin
assign(f,'grendizer.in');reset(f);
assign(g,'grendizer.out');rewrite(g);
readln(f,n,m);
for i:=1 to n do readln(f,a[i,1],a[i,2]);
for i:=1 to m do begin
readln(f,x,y,r);
nr:=0;
for j:=1 to n do begin
q:=abs(x-a[j,1])+abs(y-a[j,2]);
if q=r then inc (nr);
end;
writeln(g,nr);
end;
close(f);close(g);
end.