记录编号	40748	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 打乒乓球	最终得分	100
用户昵称	三木公	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2012-07-19 08:53:31	内存使用	0.17 MiB

var
i,j,k,a,b,m,n,y:longint;
r,t,x,z,c:array[1..100]of longint;
 
procedure ss(m,n,o,p,q:longint);
var u,v,sum:longint;
begin
u:=o-m;
v:=p-n;
sum:=u*u+v*v;
if sum<q*q
then c[i]:=c[i]+r[b];
end;
 
begin
assign(input,'table2.in');
reset(input);
assign(output,'table2.out');
rewrite(output);
 
readln(a);
  y:=30;
   x[1]:=30;x[2]:=100;x[3]:=170;
   z[1]:=20;z[2]:=10;z[3]:=5;
   r[1]:=1;r[2]:=2;r[3]:=3;
for i:=1 to a do begin
k:=0;readln(t[i]);
 for j:=1 to t[i] do begin
  readln(m,n);
  for b:=1 to 3 do
   ss(m,n,x[b],y,z[b]);
  end;
end;
for i:=1 to a do
writeln(c[i]);
 
close(input);
close(output);
end.