测评机： Xeost[5]

得分： 90分

提交日期： 2009-6-14 14:35:00

有效耗时： 547毫秒

测试结果1: 通过本测试点|有效耗时156ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3: 通过本测试点|有效耗时47ms

测试结果4: 测试结果错误.错误结果为:43

正确结果应为:48

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 通过本测试点|有效耗时47ms

测试结果7: 通过本测试点|有效耗时47ms

测试结果8: 通过本测试点|有效耗时47ms

测试结果9: 通过本测试点|有效耗时62ms

测试结果10: 通过本测试点|有效耗时47ms

program cheese；

var

a:array[1..4] of integer；

i,j,k,m,n:integer；

begin

readln(a[1],a[2],a[3],a[4])；

for i:=4 downto 1 do

for j:=4 downto 1 do

if i+j=5 then

while (a[i]>0) and (a[j]>0) do

begin

dec(a[i])；dec(a[j])；inc(m)；

end；

while (a[3]>0) and (a[1] div 2>0) do begin

dec(a[1],2)； dec(a[3])； inc(m)；

end；

while (a[2]>0) and (a[1] div 3>0) do begin

dec(a[1],3)； dec(a[2])； inc(m)；

end；

while a[1] div 5 >0 do begin

dec(a[1],5)；

inc(m)；

end；

writeln(m)；

end.

在第二句while前再加上

while (a[2] div 2>0) and (a[1] >0) do begin

dec(a[1])； dec(a[2],2)； inc(m)；

end；