记录编号 40591 评测结果 AAAAAAAAAA
题目名称 [暑假培训2012] 打乒乓球 最终得分 100
用户昵称 Gravatarbingo 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2012-07-18 14:40:57 内存使用 0.17 MiB
显示代码纯文本
var
 p,s,n,i,j,k,x,y:integer;
 f,g:text;

begin
   assign(f,'table2.in');
   assign(g,'table2.out');
   reset(f);
   rewrite(g);
 readln(f,s);
 for i:=1 to s do
  begin

   readln(f,n);
   p:=0;
   for j:=1 to n do
    begin
     readln(f,x,y);
     if sqr(x-30) +sqr(y-30)<400 then p:=p+1;
     if sqr(x-100)+sqr(y-30)<100 then p:=p+2;
     if sqr(x-170)+sqr(y-30)<25  then p:=p+3;
    end;
   writeln(g,p);
  end;
 close(f);
 close(g);
end.