记录编号 | 6958 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 194.[USACO Mar03] 奶酪工厂 | 最终得分 | 100 | ||
用户昵称 | 是否通过 | 通过 | |||
代码语言 | 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.