记录编号 6958 评测结果 AAAAAAAAAA
题目名称 [USACO Mar03] 奶酪工厂 最终得分 100
用户昵称 GravatarE.M.B.E.R 是否通过 通过
代码语言 Pascal 运行时间 0.078 s
提交时间 2008-11-05 19:13:52 内存使用 0.19 MiB
显示代码纯文本
program EmberAsh;
var
i,j,k,n,m,s,t:longint;
a,b:array[0..10000] of longint;
min:qword;
fin,fout:text;

BEGIN
assign(fin,'factory.in');reset(fin);
assign(fout,'factory.out');rewrite(fout);
readln(fin,n,s);
readln(fin,a[1],b[1]);
min:=a[1]*b[1];
for i:=2 to n do
  begin
  readln(fin,a[i],b[i]);
  if a[i]>a[i-1]+s then
    a[i]:=a[i-1]+s;
  min:=min+a[i]*b[i];
  end;
writeln(fout,min);
close(fin);close(fout);
END.