0*1 2013-08-03 01:45:00
点我顶贴
收藏
删除
var
a,b:array[1..25]of integer;
c:array[0..30000]of longint;
i,j,n,m:longint;
begin
fillchar(c,sizeof(c),0);
readln(n,m);
for i:=1 to m do
begin
readln(a[i],b[i]);
b[i]:=b[i]*a[i];
end;
for i:=1 to m do
for j:=n downto a[i] do
if b[i]+c[j-a[i]]>c[j] then c[j]:=b[i]+c[j-a[i]];
writeln(c[n]);
end.