var
n,m,i,j,k:integer;
t,js:array [1..5000] of integer;
x,y:array [1..1000,1..1000] of integer;

begin
assign(input,'table2.in');
rewrite(input);
assign(output,'table2.out');
rewrite(output);

readln(m);

 k:=0;
for i:=1 to m do
begin
readln(t[i]);
for j:=1 to t[i] do
begin
read(x[i,j]);
readln(y[i,j]);
end;
end;
for j:=1 to m do
for i:=1 to t[j] do
begin
if (x[j,i]>=9)and(x[j,i]<=49) then if (y[j,i]>=9)
and(y[j,i]<=49) then js[j]:=js[j]+1;
if (x[j,i]>=89)and(x[j,i]<=109) then if (y[j,i]>=19)
and(y[j,i]<=39) then js[j]:=js[j]+2;
if (x[j,i]>=164)and(x[j,i]<=174) then if (y[j,i]>=24)
and(y[j,i]<=34) then js[j]:=js[j]+3;
end;
for j:=1 to m do
writeln(js[j]);
close(input);close(output);
end.