bobcaocheng 2014-09-14 02:21:10
点我顶贴
收藏
删除
var a:array[0..1000] of integer;
t,m,i,j,p,t1:integer;
begin
readln(t,m);
for i:=1 to m do
begin
readln(t1,p);
if t1<=t then
for j:=t downto t1 do
if a[j]<a[j-t1]+p then a[j]:=a[j-t1]+p;
end;
writeln(a[t]);
end.