tian 2011-08-02 22:47:00
点我顶贴
收藏
删除
program ddd;
var n,m,i,j,max,rj:longint;
s,a,b:array[0..10000]of longint;
begin
read(n,m);
for i:= 1 to n do
begin
read(a[i],b[i]);
end;
for i:= 1 to m do
s[i]:=-maxlongint;
s[0]:=0;
for i:=1 to m do
begin
max:=-maxlongint;
for j:=1 to n do
begin
if i>=a[j] then
begin
rj:=b[j]+s[i-a[j]];
if rj>max then
max:=rj;
end;
end;
s[i]:=max;
end;
write(s[m]);
end.