В Delphi 7 Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).
Ответы:
26-02-2019 13:06
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.
Также наши пользователи интересуются:
0,64/0,8 столбик помогите Расстояние от города до поселка 24 км. Из города вышел пешеход со скоростью 5 км.ч . На каком расстоянии от поселка будет пешеход через 4 часа? Дополни условие задачи так чтоб
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «В Delphi 7 Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). » от пользователя Бодя Тур в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!