996760929 2009-01-14 00:56:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 40分
提交日期： 2009-1-13 21:21:00
有效耗时： 969毫秒
测试结果1: 通过本测试点|有效耗时250:ms
测试结果2: 测试结果错误.错误结果为:12433882
正确结果应为:12413605
测试结果3: 测试结果错误.错误结果为:13634695
正确结果应为:13630798
测试结果4: 测试结果错误.错误结果为:16957370
正确结果应为:16950743
测试结果5: 通过本测试点|有效耗时281:ms
测试结果6: 测试结果错误.错误结果为:95059634
正确结果应为:95068146
测试结果7: 测试结果错误.错误结果为:11152652
正确结果应为:11144826
测试结果8: 通过本测试点|有效耗时219:ms
测试结果9: 测试结果错误.错误结果为:6457268
正确结果应为:6450430
测试结果10: 通过本测试点|有效耗时219:ms
var
t,m,w,v,i,j:longint；
f:array[0..10000]of longint；
begin
readln(t,m)；
for i:=1 to t do
begin
readln(w,v)；
for j:=1 to m do
if j-w>=0 then
if f[j-w]+v>f[j]then f[j]:=f[j-w]+v；
end；
write(f[m])；
end.