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

17 Окт 2019 в 11:41
282 +1
0
Ответы
1

program MaxMinSum;

var
a, b, c, max, min: integer;

function FindMax(x, y: integer): integer;
begin
if x > y then
FindMax := x
else
FindMax := y;
end;

function FindMin(x, y: integer): integer;
begin
if x < y then
FindMin := x
else
FindMin := y;
end;

begin
writeln('Enter three numbers:');
readln(a, b, c);

max := FindMax(FindMax(a, b), c);
min := FindMin(FindMin(a, b), c);

writeln('Sum of the maximum and minimum numbers: ', max + min);
end.

19 Апр 2024 в 10:42
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир