Определить, делится ли двузначное число, введенное с клавиатуры дисплея, на 9 - Turbo Pascal
Формулировка задачи:
Двузначное число делится на 9, если сумма его цифр делится на 9. Определить, делится ли двузначное число, введенное с клавиатуры дисплея, на 9.
Решение задачи: «Определить, делится ли двузначное число, введенное с клавиатуры дисплея, на 9»
textual
Листинг программы
var a, b, c: integer; begin writeln ('Vvedi chislo: '); readln (a); b:= a div 10; c:=a mod 10; if (b+c) mod 9 = 0 then writeln ('Chislo delitsya na 9') else writeln ('Chislo ne delitsya na 9'); readln; end.
Объяснение кода листинга программы
- Создается переменная
a
типаinteger
, которая будет хранить введенное с клавиатуры двузначное число. - Выводится сообщение
Vvedi chislo:
для приглашения пользователя ввести число. - С помощью функции
readln
с клавиатуры считывается введенное пользователем число и сохраняется в переменнойa
. - Создается переменная
b
типаinteger
путем деления числаa
на 10. - Создается переменная
c
типаinteger
путем взятия остатка от деления числаa
на 10. - Проверяется, делится ли сумма переменных
b
иc
на 9 без остатка. Если да, то выводится сообщениеChislo delitsya na 9
. - Если сумма переменных
b
иc
не делится на 9 без остатка, то выводится сообщениеChislo ne delitsya na 9
. - Выводится символ новой строки
readln
, чтобы перейти к следующему шагу программы.