彻底无语。。。: { Author:wzx961008 Problem:UVa 10300-Ecological Premium Verdict:Accepted Language:PASCAL Run Time:0.008s Submission Date:2011-01-14 15:33:45 } var task,i,n,ans,a,b,c:longint; begin readln(task); for task:=1 to task do begin readln(n); ans:=0; for i:=1 to n do begin readln(a,b,c); ans:=ans+a*c; end; writeln(ans); end; end.