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