Проверить, делится ли сумма цифр введенного двухзначного целого числа на 5 - Turbo Pascal

Формулировка задачи:

К данной задаче составить блок схему и программу на языке Паскаль. Составить программу, проверяющую, верно ли утверждение, что сумма цифр введённого двухзначного целого числа делится без остатка на 5.

Решение задачи: «Проверить, делится ли сумма цифр введенного двухзначного целого числа на 5»

Листинг программы

uses crt;
var n,s:integer;
begin
clrscr;
repeat
write('Введите двухзначное число n=');
readln(n);
n:=abs(n);{число может быть и отрицательным}
until n in [10..99];
s:=n div 10+n mod 10;
writeln('Верно что сумма цифр делится на 5 без остатка?');
if s mod 5=0 then write('Да') else write('Нет');
readln
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции для работы с потоками ввода-вывода.
Затем объявляются две переменные типа Integer: n и s. Переменная n будет использоваться для хранения введенного числа, а переменная s - для хранения результата деления на 10 и остатка от деления на 10.
С помощью функции clrscr() очищается экран.
Затем в цикле repeat-until запрашивается у пользователя ввести двухзначное число. Число преобразуется в положительное с помощью функции abs().
После этого проверяется, что введенное число находится в диапазоне от 10 до 99.
Далее переменная s инициализируется как результат деления числа n на 10, плюс остаток от деления на 10.
Выводится вопрос пользователю о том, делится ли сумма цифр введенного числа на 5 без остатка.
С помощью оператора mod проверяется, равен ли остаток от деления переменной s на 5 нулю. Если да, то выводится слово Да, иначе - слово Нет.
Цикл repeat-until завершается, когда введенное число удовлетворяет условию проверки.
Программа завершается с помощью функции readln().