Медуха
Опубликовано 6 лет назад по предмету Информатика от Медуха


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

  1. Ответ
    Ответ дан Maksim2009rus
    var  a, 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_minend;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.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц