linengwei 2013-06-29 02:57:00
点我顶贴
收藏
删除
uses math;
var
i,j,k,l,m,n,a,b:longint;
s:array[0..100000]of longint;
begin
read(n,m);
for i:=1 to n do
begin
read(a,b);
b:=b-a*2;
for j:=a to m do
s[j]:=max(s[j],s[j-a]+b);
end;
write(s[m]+m);
end.
“b:=b-a*2;”这句就避免了最后的搜索啦= =~