Найти min(max(x, y), max(x, z), max(z, d)) - Pascal

Формулировка задачи:

Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей помочь! Даны различные действительные числа x, y, z, d. Найти min(max(x, y), max(x, z), max(z, d)).

Код к задаче: «Найти min(max(x, y), max(x, z), max(z, d)) - Pascal»

textual
function min(a, b: Integer): Integer; begin if b<a then min:=b else min:=a; end;
function max(a, b: Integer): Integer; begin if b>a then max:=b else max:=a; end;
var x, y, z, d: Integer;
begin
  Write('x y z d: '); ReadLn(x,y,z,d); WriteLn(min(min(max(x,y),max(x,z)),max(z,d)));
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ