记录编号	2731	评测结果	AWWAWWWWWW
题目名称	[POI 1998] 潜水员的问题	最终得分	20
用户昵称	E.M.B.E.R	是否通过	未通过
代码语言	Pascal	运行时间	0.324 s
提交时间	2008-09-25 14:28:03	内存使用	39.08 MiB

program EmberAsh;
const
maxn=10000000;
var
f:array[0..1000,0..100,0..100]of longint;
tt,aa,i,j,k,n,max:longint;
t,a,w:array[1..1000]of longint;

BEGIN
assign(input,'ple.in');reset(input);
assign(output,'ple.out');rewrite(output);
readln(tt,aa);
readln(n);
for i:=1 to n do
  readln(t[i],a[i],w[i]);
for i:=1 to n do
  for j:=0 to tt do
    for k:=0 to aa do
      begin
      if (j-t[i]>=0)and(k-a[i]>=0) then
        begin
        {f[i,j,k]:=f[i-1,j,k];}
        if (f[i-1,j-t[i],k-a[i]]+w[i]<f[i-1,j,k])or(f[i-1,j,k]=0) then
          f[i,j,k]:=f[i-1,j-t[i],k-a[i]]+w[i];
        end;
      end;
writeln(f[n,tt,aa]);
close(input);close(output);
END.