rt 2019-05-08 06:11:45
点我顶贴
收藏
删除
var
t,m,i,j:longint;
w,c:array[1..100] of longint;
f:array[0..1000] of longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x);
exit(y);
end;
begin
readln(t,m);
for i:=1 to m do
readln(w[i],c[i]);
for i:=1 to m do
for j:=t downto w[i] do
f[j]:=max(f[j],f[j-w[i]]+c[i]);
writeln(f[t]);
end.