Информатика, опубликовано 2018-08-22 23:32:52 by Гость
В Delphi 7 Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).
Ответ оставил Гость
Var
x, y, z, d: real;
function min(a, b: real): real;
begin
if a 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на