program grendizer;

type rec = record
   x,y:longint;
end;
var fin,fout:text;
    c,i,j,n,m,x,y,r,d:longint;
    v:array [1..1000000] of rec;
{*-----------------------------------------------*}
{*-----------------------------------------------*}
begin
    assign(fin,'grendizer.in'); reset(fin);
    assign(fout,'grendizer.out'); rewrite(fout);
    readln(fin,n,m);
    for i:=1 to n do
    begin
        readln(fin,v[i].x,v[i].y);
    end;
    for i:=1 to m do
    begin
        readln(fin,x,y,r);
        c:=0;
        for j:=1 to n do
        begin
           d:=abs(x-v[j].x)+abs(x-v[j].y);//sqrt((x-v[j].x)*(x-v[j].x)+(y-v[j].y)*(y-v[j].y));
           if d = r then inc(c);
        end;
        writeln(fout,c);
    end;
    close(fin);
    close(fout);
end.