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

1. Найти $$\max\{\min(a,b),\min(c,d)\}$$.

Нужно найти значение выражения $$\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.