(Составить программу по Pascal) Дано двузначное число. Определить, кратна ли сумма…

Question

90

(Составить программу по Pascal) Дано двузначное число. Определить, кратна ли сумма его цифр 6. Подсказка: Нужно отделить от числа единицы и десятки. Чтобы узнать, сколько десятков в числе, нужно поделить число нацело на 10. Результат присвоить какой-нибудь переменной. Затем исходное число поделить с помощью команды MOD на 10 и результат записать в другую переменную.

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

ответить

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

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

vovis · Accepted Answer

45

vovis

19 февраля 2023

Program zad6; var n, d, e, s: integer; beginreadln (n); d: =n div 10; e: =n mod 10; s: =d+e; if s mod 6=0 then writeln (' сумма цифр числа кратна 6') else writeln (' сумма цифр числа не кратна 6'); end.

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

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

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

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