Верно ли утверждение, что сумма цифр числа делится на 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.

Объяснение кода листинга программы

  1. Объявлена переменная n типа integer (целое число).
  2. Запущен цикл repeat-until, который будет выполняться до тех пор, пока пользователь не введет число в диапазоне от 10 до 99 (включительно).
  3. В каждой итерации цикла пользователю предлагается ввести число.
  4. Если число делится на 5 без остатка, то выводится сообщение Сумма цифр числа нацело делится на 5.
  5. Если число не делится на 5 без остатка, то выводится сообщение Сумма цифр числа нацело не делится на 5.
  6. После вывода сообщения пользователю предлагается нажать любую клавишу для перехода к следующей итерации цикла.
  7. Если число не находится в диапазоне от 10 до 99, то цикл прекращается.

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы