RQ145 打水漂

RQ254 占内存的递归函数

RQ98 逃亡的准备

Uxuard posted @ 2011年8月16日 00:14 in 水题 with tags OI RQNOJ 水题 , 1345 阅读

此题数据很弱,裸的就可以过了.....

var
i,j,k,n,m,tn,tw,tv:longint;
f:array[0..1000000] of longint;

begin
   readln(n,m);
   for i:=1 to n do
   begin
      readln(tn,tw,tv);
      for j:=1 to tn do
	 for k:=m downto tw*j do
	    if f[k]<f[k-tw]+tv then
	       f[k]:=f[k-tw]+tv;
   end;
   writeln(f[m]);
end.

评论 (0)