PascalABC.NET 3.10.3 Файл Правка Вид Программа Сервис Модули Помощь •Program1.pas* www.pas* ccc.pas* Program2.pas* переменная a: целое число; переменная b: целое число; начать запись('Ввод ='); написать("Пользователь вводит что-то , 1-3 , что-то , что будет выводиться на экран в виде текста"); readln(a); если a = 1, то writeln('Один'); если a = 2, то writeln('Два'); если a = 3, то writeln('Три'); если a > 3, то пишемn("Вы сделали новое дело"); конец.| Задание 1: Пользователь вводит свой возраст с клавиатуры. В случае если пользователь ввел возраст до 18 лет - вывести на экран: Пользователь несовершеннолетний. В случае если пользователь ввёл возраст 18 или более лет - вывести на экран: Пользователь совершеннолетний Пример: Ввод: 35 Вывод: Пользователю 35 лет, пользователь совершеннолетний. Задание 2: Пользователь вводит первое число - расстояние в километрах с клаивиатуры. После чего, компьютер предлагает перевести число(ввод второго числа с клавиатуры), для выбора перевода. 1 - перевод в метры. 2- перевод в дециметры. 3- перевод в см. Пример: Ввод: 2, Ввод 1. Вывод: В 2 километрах - 2000 метров. Задание 3: Калькулятор. Пользователь вводит два числа с клавиатуры (число 1 и число 2). После чего, компьютер предлагает выбрать действие с числами (ввода третьего числа с клавиатуры). Действие 3 / Действие 4 * Действие 1 - Действие 2 + Пример: Ввод 20, ввод 40, ввод 2 Вывод: Ответ: 20+40 = 60 Пример 2: Ввод 10, ввод 5, ввод 4 Вывод: Ответ: 10*5 = 50 Компиляция прошла успешно (11 строк), 1 предупреждений ab Горячий Аам Гроу?"

**Решение:** **Задание 1:** ```pascal program Task1; var age: integer; begin writeln('Введите ваш возраст:'); readln(age); if age < 18 then writeln('Пользователь ', age, ' лет, пользователь несовершеннолетний.') else writeln('Пользователь ', age, ' лет, пользователь совершеннолетний.'); end. ``` **Объяснение:** - В данной программе создается переменная `age` для записи возраста пользователя. - Пользователь вводит свой возраст с клавиатуры. - Далее, используется условный оператор `if`, который проверяет значение переменной `age`. - Если возраст меньше 18, программа выводит на экран информацию о том, что пользователь несовершеннолетний. - В противном случае (возраст больше или равен 18), программа сообщает, что пользователь совершеннолетний. **Задание 2:** ```pascal program Task2; var distance, choice: integer; begin writeln('Введите расстояние в километрах:'); readln(distance); writeln('Выберите тип перевода:'); writeln('1 - метры, 2 - дециметры, 3 - сантиметры'); readln(choice); case choice of 1: writeln('В ', distance, ' километрах - ', distance * 1000, ' метров.'); 2: writeln('В ', distance, ' километрах - ', distance * 10000, ' дециметров.'); 3: writeln('В ', distance, ' километрах - ', distance * 100000, ' сантиметров.'); end; end. ``` **Объяснение:** - В этой программе создаются переменные `distance` и `choice` для записи расстояния и выбора пользователя. - Пользователь вводит расстояние в километрах и выбирает тип перевода (метры, дециметры или сантиметры). - С помощью оператора выбора `case of` программа выполняет соответствующие вычисления в зависимости от выбора пользователя. **Задание 3:** ```pascal program Calculator; var num1, num2, action: integer; begin writeln('Введите первое число:'); readln(num1); writeln('Введите второе число:'); readln(num2); writeln('Выберите действие:'); writeln('1 - вычитание, 2 - сложение, 3 - деление, 4 - умножение'); readln(action); case action of 1: writeln('Ответ: ', num1, ' - ', num2, ' = ', num1 - num2); 2: writeln('Ответ: ', num1, ' + ', num2, ' = ', num1 + num2); 3: writeln('Ответ: ', num1, ' / ', num2, ' = ', num1 / num2); 4: writeln('Ответ: ', num1, ' * ', num2, ' = ', num1 * num2); end; end. ``` **Объяснение:** - В этой программе создаются переменные `num1`, `num2` и `action` для чисел и выбора операции. - Пользователь вводит два числа и выбирает операцию (сложение, вычитание, умножение или деление). - С помощью оператора выбора `case of` программа выполняет соответствующее математическое действие в соответствии с выбором пользователя. Это были решения для трех задач. Если у тебя есть еще вопросы или задачи, не стесняйся их задавать!