讨论 / 很短的代码~(pascal)
linengwei 2013-06-29 17: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;”这句就避免了最后的搜索啦= =~

查看更多回复
提交回复