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