比赛 20130725暑期B班1测 评测结果 AAAAAAAAAA
题目名称 打乒乓球 最终得分 100
用户昵称 如烟 运行时间 0.004 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2012-07-18 11:27:25
显示代码纯文本
var
  n,i,j,m,x,y,s:longint;
begin
 assign(input,'table2.in');
 reset(input);
 assign(output,'table2.out');
 rewrite(output);
 read(n);
  for i:=1 to n do
   begin
   read(m);
   for j:=1 to m do
    begin
    read(x,y);
    if sqr(x-30)+sqr(y-30)<400 then s:=s+1;
    if sqr(x-100)+sqr(y-30)<100 then s:=s+2;
    if sqr(x-170)+sqr(y-30)<25 then s:=s+3;
    end;
   writeln(s);s:=0;
   end;
 close(input);
 close(output);
end.