Информатика: Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal , : (

nika1299

29.04.2021 05:35

Информатика

Есть ответ 👍

Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal , : (

182

205

Посмотреть ответы 2

Ответы на вопрос:

Disna2006

Информатика

4,6(39 оценок)

Var a,b,c,d: integer; function max (const x,y: integer): integer; begin if (x> y) then max: =x else max: =y; end; function min (const x,y: integer): integer; begin if (x< y) then min: =x else min: =y; end; begin readln (a,b,c,d); writeln (max(min(a,b),min(c,; end.