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