program yange;
var
i,j,n,q,x1,x2,y1,y2,a,b,c,d,ans:longint;
x,y,r:array[1..8000] of longint;
begin
readln(n);
for i:=1 to n do
read(x[i],y[i],r[i]);
readln(q);
for i:=1 to q do
begin
read(a,b,c,d);
x1:=a;
y1:=b;
x2:=c;
y2:=d;
ans:=0;
for j:=1 to n do
if (sqr(x1-x[j])+sqr(y1-y[j])-sqr(r[j]))*(sqr(x2-x[j])+sqr(y2-y[j])-sqr(r[j]))<0
then ans:=ans+1;
writeln(ans);
end;
end.