记录编号	68637	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 打乒乓球	最终得分	100
用户昵称	赵寒烨	是否通过	通过
代码语言	Pascal	运行时间	0.011 s
提交时间	2013-08-24 21:53:26	内存使用	0.19 MiB

var
  a:array [0..200,0..100] of 0..3;
  i,j,t,n,x,y,ans:longint;
function dis(x1,y1,x2,y2:integer):double;
  begin
    exit(sqrt(sqr(x2-x1)+sqr(y2-y1)));
  end;
begin
  assign(input,'table2.in');reset(input);
  assign(output,'table2.out');rewrite(output);
  fillchar(a,sizeof(a),0);
  for i:=1 to 200 do
    for j:=1 to 100 do begin
      if dis(i,j,30,30)<20 then a[i,j]:=1;
      if dis(i,j,100,30)<10 then a[i,j]:=2;
      if dis(i,j,170,30)<5 then a[i,j]:=3;
    end;
  readln(t);
  for i:=1 to t do begin
    readln(n);
    ans:=0;
    for j:=1 to n do begin
      readln(x,y);
      ans:=ans+a[x,y];
    end;
    writeln(ans);
  end;
  close(input);
  close(output);
end.