program expresii;
var f,g:text;
    i,m,n,x,y,r,j:longint;
    nr:int64;
    a,b:array[1..300000] of longint;

begin
   assign(f,'grendizer.in');
   assign(g,'grendizer.out');
   rewrite(g);
   reset(f);
   readln(f,n,m);

   for i:=1 to n do
      readln(f,a[i],b[i]);
   for j:=1 to m do
     begin
         readln(f,x,y,r);
         nr:=0;
         for i:=1 to n do
           if abs(x-a[i])+abs(y-b[i])=r then nr:=nr+1;
         writeln(g,nr)
     end;



   close(f);
   close(g);
end.