#1 Macogot@2011-03-23 22:03:00
20413
回复
删除
var s:array[0..50000]of longint;
i,j,a,n,m:longint; {定义}
begin {main}
readln(n,m); {输入C和B}
for i:=1 to m do begin
read(a); {输入每筒食物所含的卡路里}
for j:=n downto a do
if s[j-a]+a>s[j] then s[j]:=s[j-a]+a; {判断吃了第j筒后摄入的卡路里会不会超标，不超标则吃下去}
end;
write(s[n]); {输出}
end.
#2 殺魂の魄@2011-03-26 20:59:00
20460
回复
删除
？？？？？？？？？？？？？？？？？
？？？？QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ