program gredizer;
var f, g:text;
    n, m, i, j, nr, d1, d2, x, y, r:longint;
    a, b:array[1..100000] of 0..100000000;
  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],b[i]);
    for i:=1 to m do
      begin
        readln(f,x,y,r);
        nr:=0;
        for j:=1 to n do
          begin
            d1:=a[j]-x;
            if d1<0 then
              d1:=0-d1;
            d2:=b[j]-y;
            if d2<0 then
              d2:=0-d2;
            if d1+d2=r then
              nr:=nr+1;
          end;
        writeln(g,nr);
      end;

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