记录编号	40705	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 打乒乓球	最终得分	100
用户昵称	H J H	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2012-07-18 17:55:06	内存使用	0.17 MiB

var
i,j,t,k:longint;
n,x,y:integer;

function pd(x,y,z,a,b:integer):integer;
begin
pd:=0;
if (x-a)*(x-a)+(y-b)*(y-b)<z*z then pd:=1;
end;


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

read(t);
FOR I:=1 TO T DO
    BEGIN
    read(n);
    k:=0;
    for j:=1 to n do
        begin
        read(x,y);
        if pd(30,30,20,x,y)=1 then k:=k+1
           else if pd(100,30,10,x,y)=1 then k:=k+2
                else if pd(170,30,5,x,y)=1 then k:=k+3;

        end;
    writeln(k);
    END;


close(input);close(output);

end.