Определить, делится ли двузначное число, введенное с клавиатуры дисплея, на 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.

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

  1. Создается переменная a типа integer, которая будет хранить введенное с клавиатуры двузначное число.
  2. Выводится сообщение Vvedi chislo: для приглашения пользователя ввести число.
  3. С помощью функции readln с клавиатуры считывается введенное пользователем число и сохраняется в переменной a.
  4. Создается переменная b типа integer путем деления числа a на 10.
  5. Создается переменная c типа integer путем взятия остатка от деления числа a на 10.
  6. Проверяется, делится ли сумма переменных b и c на 9 без остатка. Если да, то выводится сообщение Chislo delitsya na 9.
  7. Если сумма переменных b и c не делится на 9 без остатка, то выводится сообщение Chislo ne delitsya na 9.
  8. Выводится символ новой строки readln, чтобы перейти к следующему шагу программы.

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

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