// Grendizer



var
        n, m, i, j, x, y, r, dm : longint;
        vx, vy                  : array [1..100000] of longint;
        f, g                    : text;


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, vx [i], vy [i]);
for i := 1 to m do
        begin
        readln  (f, x, y, r);
        dm      := 0;
        for j := 1 to n do
                 if (abs(vx[j] - x) + abs(vy[j] - y) = r) then
                        inc     (dm);
        writeln (g, m);
        end;

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