wjzzm 2008-12-13 17:11:00
点我顶贴
收藏
删除
program s1;
var a,b:array[0..5000]of longint;
f:array[0..10000]of longint;
i,j,k,n,m:longint;
begin
readln(n,m);
for i:=1 to n do readln(a[i],b[i]);
f[0]:=0;
for i:=1 to m do f[i]:=-maxlongint;
for i:=0 to m do
for j:=1 to n do
begin
if i>=a[j] then begin k:=f[i-a[j]]+b[j];end;
if k>f[i] then f[i]:=k;
end;
write(f[m]);
end.