记录编号 66675 评测结果 AAAAAAAAAA
题目名称 [暑假培训2012] 打乒乓球 最终得分 100
用户昵称 Gravatarcuizhongyu 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2013-07-30 17:07:14 内存使用 0.17 MiB
显示代码纯文本
    var
    t,x,y,m,i,j,n,s:longint;
    begin
    assign(input,'table2.in');
    reset(input);
    assign(output,'table2.out');
    rewrite(output);
    readln(t);
    for i:=1 to t do
    begin
    readln(n);
    s:=0;
    for j:=1 to n do
    begin
    read(x,y);
    if sqr(30-x)+sqr(30-y)<400 then s:=s+1
    else
     
    if sqr(100-x)+sqr(30-y)<100 then s:=s+2
    else
     
    if sqr(170-x)+sqr(30-y)<25 then s:=s+3;
    end;
    writeln(s);
    end;
    close(input);
    close(output);
    end.