| 记录编号 | 324333 | 评测结果 | EEEEEEEEEE | ||
|---|---|---|---|---|---|
| 题目名称 | 956.money | 最终得分 | 0 | ||
| 用户昵称 | 是否通过 | 未通过 | |||
| 代码语言 | 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.