无情者 2016-08-24 06:08:17
点我顶贴
收藏
删除
var m,n,i,max,maxv,sum,k,mul,j:longint;
v,w:array[1..25] of longint;
begin
readln(n,m);
for i:=1 to m do
readln(v[i],w[i]);
for i:=1 to m do
begin
max:=0;
for j:=1 to m do
if max<=w[j] then begin
max:=w[j];
maxv:=v[j];
k:=j;
end;
if sum+maxv<=n then begin
mul:=mul+max*maxv;
sum:=sum+maxv;
end;
w[k]:=0;
end;
writeln(mul);
end.
#5 xiaohuang@2017-03-15 00:09:10
33979
回复
删除
jhnjhjhhhhhhhhhhhhhhhhh99999999999999999999999999999999999999999