jzoj. 1285. 奶酪厂

Description

　　奶牛买了一个奶酪厂生产奶酪,已知每周生产一单位奶酪的费用为C_i，每周可以生产任意数量的奶酪，现在要为接下来N(1<=N<=10,000)周做生产计划。
　　厂里有一个仓库，存储量无穷大，可以用来存储暂时不用的奶酪，每单位奶酪每周花费S(1<=S<=100)。
　　告诉你每周客户的需求量Y_i(0<=Y_i<=10,000)，请你帮忙用最少的钱满足这些需求。

Input

　　第1行：两个空格隔开的整数N,S
　　第2-N+1行：每行两个空格隔开的整数C_i和Y_i。

Output

　　输出一个整数表示最少花费。注意答案可能会超出longint范围。

Sample Input

4 5
88 200
89 400
97 300
91 500

Sample Output

126900

Data Constraint

Hint

【样例说明】
　　第一周生产200单位，第二周生产700单位，400给客户，300存在仓库里留给第三周，第四周生产500单位。

分析：贪心
如果当前存进来的费用小于上一个月的单位费用，那么就买进。
证明：设上一个月单位费用为s1，当月买进单位费用s2，对于现在及以后的总共i+1个月若继续用s1的费用为i*s1+s1，若替换，费用为s2+s2*i那么显然当s2

var
 i:longint;
 n,t,s:int64;
 ans:int64;
 a,c:array [1..100001] of int64;
function min(x,y:int64):int64;
 begin
  if x<y then exit(x)
         else exit(y);
 end;

begin
 readln(n,s);
 for i:=1 to n do
  read(c[i],a[i]);
 t:=maxlongint-s-1;
 for i:=1 to n do
  begin
   t:=t+s;
   ans:=ans+min(t,c[i])*a[i];
   t:=min(t,c[i]);
  end;
 writeln(ans);
end.