状态: Unaccepted

测评机： Xeost[5]

得分： 90分

提交日期： 2010-7-20 19:49:00

有效耗时： 578毫秒

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

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

测试结果3: 测试结果错误.错误结果为:86

正确结果应为:81

测试结果4: 通过本测试点|有效耗时63ms

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

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

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

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

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

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

提交代码： view sourceprint?

01.var

02. i,s:longint;

03. a:array[0..4]of longint;

04.begin

05. for i:=1 to 4 do

06. read(a[i]);

07. if a[1]>=a[4] then begin s:=s+a[4];a[1]:=a[1]-a[4];end

08. else begin s:=s+a[1];a[1]:=0;end;

09. if a[2]>=a[3] then begin s:=s+a[3];a[2]:=a[2]-a[3];a[3]:=0;end

10. else begin s:=s+a[2];a[2]:=0;a[3]:=a[3]-a[2];end;

11. if a[1]>=a[3]*2 then begin s:=s+a[3];a[1]:=a[1]-a[3]*2;end

12. else begin s:=s+a[1] div 2;a[1]:=a[1] mod 2;end;

13. if a[2]>=a[1]*2 then begin s:=s+a[1];a[1]:=0;a[2]:=a[2]-a[1]*2;end

14. else begin s:=s+a[2] div 2;a[1]:=a[1]-a[2] div 2;a[2]:=a[2] mod 2;end;

15. if a[1]>=a[2]*3 then begin s:=s+a[2];a[1]:=a[1]-a[2]*3;end

16. else begin s:=s+a[1] div 3;a[1]:=a[1] mod 3;end;

17. s:=s+a[1] div 5;

18. writeln(s);

19.end.