В Delphi 7
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).
More Questions From This User See All
Answers & Comments
Verified answer
Varx, y, z, d: real;
function min(a, b: real): real;
begin
if a < b then
min := a
else min := b;
end;
function max(a, b: real): real;
begin
if a > b then
max := a
else max := b;
end;
begin
readln(x, y, z, d);
writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.