Проверить признак делимости вводимого числа на 10 - Pascal
Формулировка задачи:
Прошу помощи. Нужно составить программу, которая проверяла бы признак делимости вводимого числа на 10.
Решение задачи: «Проверить признак делимости вводимого числа на 10»
textual
Листинг программы
var n: integer; begin write('Введите число: '); readln(n); if n mod 10 = 0 then write('Число делится на 10') else write('Число не делится на 10'); readln end.
Объяснение кода листинга программы
- Переменная n типа integer и инициализируется значением, введенным пользователем.
- Выводится сообщение «Введите число: », чтобы пользователь мог ввести число.
- С помощью функции readln считывается введенное пользователем значение и сохраняется в переменной n.
- Выполняется проверка условия n mod 10 = 0, где mod - оператор остатка от деления. Если условие истинно, то переменной n присваивается значение «Число делится на 10».
- Если условие ложно, то переменной n присваивается значение «Число не делится на 10».
- Выводится сообщение «Число не делится на 10» или «Число делится на 10», в зависимости от значения переменной n.
- Выводится символ новой строки с помощью функции readln, чтобы перейти к следующему шагу программы.