Работа 3.3 Упр.6 Задание 1 ГДЗ Семакин 10 класс (Информатика)

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 6. Найти max{min(a, b), min(c, d)}. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-3/zad1/6 98

Нужно найти значение выражения $$\max\{\min(a,b),\min(c,d)\}.$$

Сначала для каждой пары чисел находим меньшее значение, затем из двух полученных чисел выбираем большее.

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,d)));
end.

Ответ

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,d)));
end.