Информатика 8 класс, паскаль

автобус

милииарды решений в яндексе, ты даже ничерта палец о палец не ударял, пашел вонp.s точнее пошла

Пример программы на языке Паскаль program compare_numbers; var num1, num2, num3, max, min: integer; { объявляем переменные } begin write('Введите первое число: '); readln(num1); { считываем первое число } write('Введите второе число: '); readln(num2); { считываем второе число } write('Введите третье число: '); readln(num3); { считываем третье число } write('Введите 1, чтобы найти максимальное число, или 2, чтобы найти минимальное число: '); var choice: integer; { объявляем переменную для выбора пользователя } readln(choice); { считываем выбор пользователя } { находим максимальное и минимальное число } max := num1; if num2 > max then max := num2; if num3 > max then max := num3; min := num1; if num2 < min then min := num2; if num3 < min then min := num3; { выводим на экран результат в зависимости от выбора пользователя } if choice = 1 then writeln('Максимальное число: ', max) else if choice = 2 then writeln('Минимальное число: ', min) else writeln('Ошибка: неверный выбор'); end. Эта программа запрашивает у пользователя три числа и выбор - найти максимальное или минимальное число. Затем она находит максимальное и минимальное число среди введенных и выводит на экран результат в зависимости от выбора пользователя.

program CompareNumbers; var a, b, c, max, min: integer; choice: char; begin writeln('Введите три числа:'); readln(a, b, c); writeln('Выберите операцию:'); writeln('> Для вывода на экран наибольшего числа нажмите "M"'); writeln('> Для вывода на экран наименьшего числа нажмите "m"'); readln(choice); if (choice = 'M') or (choice = 'm') then begin max := a; min := a; if b > max then max := b; if c > max then max := c; if b < min then min := b; if c < min then min := c; if choice = 'M' then writeln('Наибольшее число: ', max) else writeln('Наименьшее число: ', min); end else writeln('Неверный выбор операции'); readln; end.