记录编号 | 324333 | 评测结果 | EEEEEEEEEE | ||
---|---|---|---|---|---|
题目名称 | money | 最终得分 | 0 | ||
用户昵称 | kaito | 是否通过 | 未通过 | ||
代码语言 | Pascal | 运行时间 | 0.000 s | ||
提交时间 | 2016-10-17 22:28:29 | 内存使用 | 0.17 MiB | ||
var n,i:integer; c:real; h:array[1..100,1..2] of integer; begin assign(input,'dog.in'); reset(input); assign(output,'dog.out'); rewrite(output); close(input); close(output); readln(n); c:=0; for i:=1 to n do readln(h[i,1],h[i,2]); for i:=1 to n do begin c:=c+h[i,1]*h[i,2]/10; end; writeln(c:0:2); end.