附70分 215三个点 程序

var w,v,q:array[0..9001]of longint；

f:array[0..9001]of longint；

n,t,i,j,k:longint；

begin

read(n,t)；

for i:=1 to n do readln(w[i],v[i],q[i])；

for i:=1 to n do

for j:=t downto w[i]+1 do

for k:= 1 to j div w[i] do

begin

if k>=5 then

if j-k*w[i]-k*q[i]>=0 then

if f[j]<f[j-k*w[i]-k*q[i]]+v[i]*k+k*q[i] then f[j]:=f[j-k*w[i]-k*q[i]]

+v[i]*k+k*q[i]；

if f[j]<f[j-k*w[i]]+v[i]*k then f[j]:=f[j-k*w[i]]+v[i]*k；

end；

write(f[t])；

end.