NEW WORLD 2013-11-04 06:08:57
点我顶贴
收藏
删除
var
t,m,i,j:longint;
f:array[0..1000]of longint;
w,c:array[1..100]of longint;
begin
readln(t,m);
fillchar(f,sizeof(f),0);
for i:=1 to m do
read(w[i],c[i]);
for i:=1 to m do
for j:=t downto w[i] do
if f[j-w[i]]+c[i]>f[j] then f[j]:=f[j-w[i]]+c[i];
writeln(f[t]);
end.