Предмет: Информатика,
автор: 55121997
СРОЧНО!!!
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).Решить в Делфи 7
Ответы
Автор ответа:
0
var
x, 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.
x, 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.
Похожие вопросы
Предмет: Физика,
автор: filustoma
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: anastasiayanik4
Предмет: Алгебра,
автор: Никита0123
Предмет: Биология,
автор: deman6klass