记录编号 | 66675 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | [暑假培训2012] 打乒乓球 | 最终得分 | 100 | ||
用户昵称 | 是否通过 | 通过 | |||
代码语言 | 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.