lvchaojie 2010-09-11 04:32:00
点我顶贴
收藏
删除
var n,m,i,j:integer;
a,v,w:array[0..10000] of longint;
begin
fillchar(a,sizeof(a),0);
readln(n,m);
for i:=1 to m do readln(v[i],w[i]);
for i:=1 to m do
for j:=n downto v[i] do
if a[j-v[i]]+v[i]*w[i]>a[j] then a[j]:=a[j-v[i]]+v[i]*w[i];
write(a[n]);
end.