一道pascal题目  又是一年秋季时,陶陶家的苹果树结了n个果子.陶陶又跑去摘苹果,这次她有一个a公分的椅子.当他手够不着时,他会站到椅子上再试试.  这次与NOIp2005普及组第一题不同的是

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/09 02:11:40

一道pascal题目  又是一年秋季时,陶陶家的苹果树结了n个果子.陶陶又跑去摘苹果,这次她有一个a公分的椅子.当他手够不着时,他会站到椅子上再试试.  这次与NOIp2005普及组第一题不同的是
一道pascal题目
  又是一年秋季时,陶陶家的苹果树结了n个果子.陶陶又跑去摘苹果,这次她有一个a公分的椅子.当他手够不着时,他会站到椅子上再试试.
  这次与NOIp2005普及组第一题不同的是:陶陶之前搬凳子,力气只剩下s了.当然,每次摘苹果时都要用一定的力气.陶陶想知道在s

一道pascal题目  又是一年秋季时,陶陶家的苹果树结了n个果子.陶陶又跑去摘苹果,这次她有一个a公分的椅子.当他手够不着时,他会站到椅子上再试试.  这次与NOIp2005普及组第一题不同的是
var
n,s,a,b,i,j,s1:longint;
x,y:array[1..100]of longint;
begin
readln(n,s);
readln(a,b);
for i:=1 to n do
begin
readln(x[i],y[i]);
if x[i]>(a+b) then x[i]:=0;
end;
for i:=1 to (n-1) do
for j:=i to n do
if y[i]>y[j] then begin
z:=y[i];y[i]:=y[j];y[j]:=z;
end;
for i:=1 to n do
if (s1+y[i]