讨论 / 看看哪错了?
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.

查看更多回复
提交回复