光光的作业

光光的作业

时间限制: 1 Sec 内存限制: 128 MB

题目描述

光光上了高中，科目增多了。在长假里，光光的老师们都非常严厉，都给他布置了一定量的作业。假期里，光光一共有的时间是k 小时。在长假前，老师们一共给光光布置了n 份作业，第i 份作业需要的时间是ti 小时。但是由于老师们互相不商量，因此光光有可能不能完成老师的作业。当可能不能完成老师的作业时，光光就事后去向老师说明，然后被老师批评一顿了事。
对于一件作业，只有2 种情况：完成或者不完成（快要完成也算不完成）。如果没完成，受到批评是天经地义的。但是，不同的作业对于光光来说，批评的力度是不同的。第i 件作业如果没完成，就要受到pi 个单位的批评。
多次这样之后，光光想要在长假前就知道他至少会受到多少个单位的批评。你能帮助他吗？

输入

第一行只有一个数字k。
第二行只有一个数字n。
接下来n 行，每行两个数字，分别是ti 和pi，两个数字之间用一个空格分开。
100%的数据中，k<=100000，ti<=10000，pi<=10000；
30%的数据中，n<=20；
100%的数据中，n<=500。

输出

包含一行，是一个数字，代表了光光最少受到的批评。

样例输入

5
3
2 6
1 3
4 7

样例输出

6

题解

01背包

var
 t,p,dp:array[0..100000]of longint;
 n,k,i,j,sum:longint;
function max(a,b:longint):longint;
begin
 if a<b
 then exit(b)
 else exit(a);
end;

begin
 readln(k);
 readln(n);
 for i:=1 to n do
  begin
   readln(t[i],p[i]);
   inc(sum,p[i])
  end;
 for i:=1 to k do
  dp[i]:=0;
 for i:=1 to n do
  for j:=k downto t[i] do
   dp[j]:=max(dp[j],dp[j-t[i]]+p[i]);
 writeln(sum-dp[k]);
end.