90

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

22 марта 2023

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

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



45

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.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...