比赛代码 - COGS

比赛	20120420	评测结果	WWWWWWWW
题目名称	等腰直角三角形	最终得分	0
用户昵称	wo shi 刘畅	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2012-04-20 09:12:16

显示代码纯文本

var
  ans:double;
  t,n,time,i,x,y:longint;

begin
  assign(input,'triangle.in'); reset(input);
  assign(output,'triangle.out'); rewrite(output);
  readln(t);
  for time:=1 to t do
  begin
    readln(n);
    ans:=0;
    for i:=1 to n do
    begin
      readln(x,y);
      ans:=ans+y*y;
    end;
    writeln(ans:0:2);
  end;
  close(input);
  close(output);
end.