gonglinyuan 2011-12-23 04:06:00
点我顶贴
收藏
删除
答案54
输出18
程序
var
s,a,b,c,d:integer;
begin
readln(a,b,c,d);
s:=0;
if a<=d then
begin
s:=s+a;
d:=d-a;
a:=0;
end
else
begin
s:=s+d;
a:=a-d;
d:=0;
end;
if b<=c then
begin
s:=s+b;
c:=c-b;
b:=0;
end
else
begin
s:=s+c;
b:=b-c;
c:=0;
end;
if 2*a<=c then
begin
s:=s+a div 2;
c:=c-a div 2;
a:=a mod 2;
end
else
begin
s:=s+c;
a:=a-2*c;
c:=0;
end;
if a<=2*b then
begin
s:=s+a;
b:=b-2*a;
a:=0;
end
else
begin
s:=s+b div 2;
a:=a-b div 2;
b:=b mod 2;
end;
if 3*a<=b then
begin
s:=s+a div 3;
b:=b-a div 3;
a:=a mod 3;
end
else
begin
s:=s+b;
a:=a-b*3;
b:=0;
end;
s:=s+a div 5;
writeln(s);
end.