Паскаль
Написать программу для нахождения суммы большего и меньшего из трёх чисел. Указание: для решения задачи использовать подпрограммы вычисления минимального и максимального для двух чисел.
Пример
на входе: 45 72 24
на выходе: 96

Для решения задачи нужно создать две подпрограммы: одна будет находить максимум из двух чисел, а другая — минимум из двух чисел. Затем с их помощью найдём самое большое и самое маленькое число среди трёх введённых чисел и сложим их.

Программа на Pascal:

pascal




program SumMinMax;
var
  a, b, c: integer;
  max, min: integer;
function MaxTwo(x, y: integer): integer;
begin
  if x > y then
    MaxTwo := x
  else
    MaxTwo := y;
end;
function MinTwo(x, y: integer): integer;
begin
  if x < y then
    MinTwo := x
  else
    MinTwo := y;
end;
begin
  readln(a, b, c);
  max := MaxTwo(MaxTwo(a, b), c);
  min := MinTwo(MinTwo(a, b), c);
  writeln(max + min);
end.

Проверка работы программы:

Ввод:

45 72 24

Сначала находится максимальное число:

• max(45, 72) = 72

• max(72, 24) = 72

Затем находится минимальное число:

• min(45, 72) = 45

• min(45, 24) = 24

Сумма:

72 + 24 = 96

Вывод:

96