Ввести целое число и найти сумму его цифр. Проверить, если сумма цифр делится на 9,…

Question

53

Ввести целое число и найти сумму его цифр. Проверить, если сумма цифр делится на 9, сделать вывод число кратно 9. В pascal. Составьте пожалуйста полную программу со всеми обозначениями.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

edisontom · Accepted Answer

63

edisontom

09 февраля 2024

Var N, S: integerBEGINwrite ('Vvedite N'); readln (N); S: =0; while N > 0 dobegin N: =N mod 10; S: =S+1; endwriteln (S); if S mod 9=0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9'); END.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: