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