Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Решить в Делфи 7

  • 04-02-2007 05:25
  • Просмотры: 17
Ответы ( 1 )
Ленчик Столяренко
+1
04-02-2007 08:13

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.