262512 2018-05-23 02:29:37
点我顶贴
收藏
删除
我突然发现我在某lg上写这道题居然还是用的p
这里就直接上代码（码风有点丑）
var
f:array[1..30000] of longint;
mo,im:array[0..30] of longint;
n,m,i,j:longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x)
else exit(y);
end;
begin
readln(n,m);
for i:=1 to m do
readln(mo[i],im[i]);
for i:=1 to m do
for j:=n downto mo[i] do
f[j]:=max(f[j],f[j-mo[i]]+mo[i]*im[i]);
writeln(f[n]);
end.