cyc 2009-01-20 17:17:00
点我顶贴
收藏
删除
WAY:GREEDY
简朴的贪心算法 连数组都没用
最后一个点错了
错误输出117
标准输出116
郁闷中 谁解答一下?
program rqnoj227;
var
a,b,c,d,s,t:integer;
function min(q,w:integer):integer;
begin
if q>w then exit(W);
exit(q);
end;
begin
readln(a,b,c,d);
s:=min(c,b)+min(a,d);
t:=min(c,b);
dec(c,t);
dec(b,t);
t:=min(a,d);
dec(a,t);
dec(d,t);
t:=min(a div 2,c);
inc(s,t);
dec(a,2*t);
dec(c,t);
t:=min(a,b div 2);
inc(s,t);
dec(a,t);
dec(b,2*t);
t:=min(a div 2,b);
inc(s,t);
dec(a,t*2);
dec(b,t);
inc(s,a div 5);
writeln(s);
end.