任昊 2013-10-28 22:03:00
点我顶贴
收藏
删除
var
i,j,n,m:longint;
a,b,c,d:array[0..30000] of longint;
begin
readln(n,m);
for i:=1 to m do begin
readln(a[i],b[i]);
c[i]:=a[i]*b[i];
end;
for i:=1 to m do
for j:=n downto a[i] do
if d[j-a[i]]+c[i]>d[j] then d[j]:=d[j-a[i]]+c[i];
writeln(d[n]);
end.