回帖：program budget;
var
n,m,i,j,q:integer;
v,p,fj1,fj2:array [0..60] of longint;
max:longint;
zj:array [0..60] of boolean;
f:array [0..32000] of longint;
t:array [0..60] of boolean;
begin
assign(input,'budget.in');reset(input);assign(output,'budget.out');rewrite(output);
readln(n,m);fillchar(zj,sizeof(zj),false);
for i:=1 to m do begin
readln(v,p,q);
if q0 then if fj1=0 then fj1:=i else fj2:=i else zj:=true;
p:=p*v;
end;
for i:=1 to m do
if zj then for j:=n-v downto 0 do begin
if f+p>f then f:=f+p;
if (fj10) and (j+v+vf] then f]:=f+p+p;
if (fj20) and (j+v+vf] then f]:=f+p+p;
if (fj10) and (fj20) and (j+v+v+vf+v] then f+v]:=f+p+p+p;
end;
write(f);
end.