记录编号 134980 评测结果 AAAAAAAAAA
题目名称 money 最终得分 100
用户昵称 Gravatarlyl610 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2014-10-31 13:02:29 内存使用 0.24 MiB
显示代码纯文本
var
a,b:array[1..10000]of longint;
i,j,m,n:longint;
t,s:extended;

begin
assign(input,'dog.in');
reset(input);
assign(output,'dog.out');
rewrite(output);
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a[i],b[i]);
t:=a[i]*(b[i]/10);
s:=s+t;
end;
writeln(s:0:2);
close(input);
close(output);
end.