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

@ZAUR15 · Регистрация: 27.12.2016

Студворк — интернет-сервис помощи студентам

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

@bormant · 27.12.2016, 16:41

Pascal

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.

@ZAUR15 · 27.12.2016, 17:05 **[ТС]**

Одна скобка лишняя

@bormant · 27.12.2016, 19:33

Уже нет.

@ZAUR15 0 / 0 / 0 Регистрация: 27.12.2016 Сообщений: 3
		1
	Найти min(max(x, y), max(x, z), max(z, d)) 27.12.2016, 16:37. Показов 5961. Ответов 3 Метки нет (Все метки) Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей помочь! Даны различные действительные числа x, y, z, d. Найти min(max(x, y), max(x, z), max(z, d)). 0

@ZAUR15 0 / 0 / 0 Регистрация: 27.12.2016 Сообщений: 3
	27.12.2016, 17:05 [ТС]	3
	Одна скобка лишняя 0

@bormant Модератор 7534 / 4394 / 2785 Регистрация: 22.11.2013 Сообщений: 12,588 Записей в блоге: 1
	27.12.2016, 19:33	4
	Уже нет. 0

Опции темы

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

Решение