陶陶摘苹果（升级版）

题目描述

又是一年秋季时，陶陶家的苹果树结了n个果子。陶陶又跑去摘苹果，这次她有一个a公分的椅子。当他手够不着时，他会站到椅子上再试试。

这次与NOIp2005普及组第一题不同的是：陶陶之前搬凳子，力气只剩下s了。当然，每次摘苹果时都要用一定的力气。陶陶想知道在s<0之前最多能摘到多少个苹果。

现在已知n个苹果到达地上的高度xi，椅子的高度a，陶陶手伸直的最大长度b，陶陶所剩的力气s，陶陶摘一个苹果需要的力气yi，求陶陶最多能摘到多少个苹果。

输入输出格式

输入格式：

第1行：两个数 苹果数n，力气s。

第2行：两个数 椅子的高度a，陶陶手伸直的最大长度b。

第3行~第3+n-1行：每行两个数 苹果高度xi，摘这个苹果需要的力气yi。

输出格式：

只有一个整数，表示陶陶最多能摘到的苹果数。

输入输出样例

输入样例#1：

8 15
20 130
120 3
150 2
110 7
180 1
50 8
200 0
140 3
120 2

输出样例#1：

4

var
ans,n,m,sou,den,i,j,dai,dai2,s2:longint;
a:array[1..10000]of longint;
begin
read(n,m);
read(den,sou);
sou:=den+sou;
for i:=1 to n do
  begin
   read(dai);
   if dai<=sou then//判断高度是否够，不够去掉
    begin
     inc(s2);//统计有多少个高度够
     read(a[s2])
    end
   else
    read(dai2);//因为高度不够，所以直接把力度不保存
  end;

{用来输入，去掉不够高的，减少后面循环}
for i:=1 to s2-1 do
  for j:=i+1 to s2 do
   if a[i]>a[j] then
    begin
     dai:=a[i];a[i]:=a[j];a[j]:=dai;
    end;

{排序，从小到大排就可以实现最多}
for i:=1 to s2 do
  if (m>0) and (m-a[i]>=0) then
   begin
    inc(ans);//统计拿到的个数
    m:=m-a[i];
   end;

{最后判断，一直拿到力度小于或等于零时}
 if n=0 then write('0')//边界

 else write(ans);
end.