记录编号 6770 评测结果 AAAAAAAAAA
题目名称 [USACO Mar03] 奶酪工厂 最终得分 100
用户昵称 Gravatarname:弓虽 是否通过 通过
代码语言 Pascal 运行时间 2.363 s
提交时间 2008-11-04 15:37:53 内存使用 0.15 MiB
显示代码纯文本
program factory(input,output);   // gao jing du(X) int64 ke yi jie jue wen ti ;
 var
  i,j,k:longint;
  n:longint;
  s:longint;
  min,now:longint;
  c:array [1..10000] of integer;
  y:array [1..10000] of integer;
  ans:int64;

begin
 assign(input,'factory.in');
 assign(output,'factory.out');
 reset(input);
 rewrite(output);
  readln(n,s);
 for i:=1 to n do
  readln(c[i],y[i]);
 ans:=c[1]*y[1];
  for i:=2 to n do begin
   min:=maxlongint;
    for j:=1 to i do
     begin
      now:=(c[j]+(i-j)*s);
      if (now<min) then min:=now;
      end;
      ans:=ans+min*y[i];
    end;
 writeln(ans);
 close(input);
 close(output);
end.