boolean2 2008-10-27 05:35:00
点我顶贴
收藏
删除
var
a:array[1..4] of longint；
n:longint；
begin
n:=0；
readln(a[1],a[2],a[3],a[4])；
while ((a[4]>=1)and(a[1]>=1)) do
begin
a[4]:=a[4]-1；
a[1]:=a[1]-1；
inc(n)；
end；
while ((a[3]>=1)and(a[2]>=1)) do
begin
a[3]:=a[3]-1；
a[2]:=a[2]-1；
inc(n)；
end；
while ((a[3]>=1)and(a[1]>=2)) do
begin
a[3]:=a[3]-1；
a[1]:=a[1]-2；
inc(n)
end；
while ((a[2]>=2)and(a[1]>=1)) do
begin
a[2]:=a[2]-2；
a[1]:=a[1]-1；
inc(n)
end；
while ((a[2]>=1)and(a[1]>=3)) do
begin
a[2]:=a[2]-1；
a[1]:=a[1]-3；
inc(n)；
end；
while (a[1]>=5) do
begin
a[1]:=a[1]-5；
inc(n)
end；
writeln(n)
end.