Паскаль
Написать программу для нахождения суммы большего и меньшего из трех чисел. Указание: для решения задачи использовать подпрограммы вычисления минимального и максимального для двух чисел.
Пример
на входе: 45 72 24
на выходе: 96
Написать программу для нахождения суммы большего и меньшего из трех чисел. Указание: для решения задачи использовать подпрограммы вычисления минимального и максимального для двух чисел.
Пример
на входе: 45 72 24
на выходе: 96
Answers & Comments
Verified answer
Vara, b, c: integer;
function min_3(const a, b, c: integer): integer;
var
local_min: integer;
begin
if (a < b) then
local_min := a
else
local_min := b;
if (c < local_min) then
local_min := c;
Result := local_min
end;
function max_3(const a, b, c: integer): integer;
var
local_max: integer;
begin
if (a >= b) then
local_max := a
else
local_max := b;
if (c > local_max) then
local_max := c;
Result := local_max;
end;
begin
writeln('Введите a, b, c -> ');
readln(a, b, c);
writeln('Результат: ', min_3(a, b, c) + max_3(a, b, c), '.');
end.