Введите четырехзначное число и подсчитайте сумму его цифр

79

Введите четырехзначное число и подсчитайте сумму его цифр (Пояснение: Примените операции div и mod по несколькораз)

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

ответить

в избранное

68

mailo

08 июля 2023

var a,i,sum: integer; beginreadln (a); for i: =1 to 4 do beginsum: =sum+a mod 10; a: =a div 10; end; writeln (sum); end.

пользователи выбрали этот ответ лучшим

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

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

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Каким образом следует выполнять простые вычисления с помощьюпрокраммы"Калькулятор»?

ПОМОГИТЕ, ПОЖАЛУЙСТА, разработать блок-схему алгоритма ее решения и написать макрос с использованием VBA/ очень нужно

Ребят помогите с заданием!

Помогите пожалуйста, Источник-приемник, Приемник-источник.)

Составьте программу, которая заполняет массив a[1…

Для какого из приведенных чисел истинно высказывание: НЕ (Первая цифра четная) И (Последняя цифра нечетная)?

Назовите 3 сходства и 6 различий между CD и DVD

Дано целое число n (n>10). Составить программу, которая вычисляет произведение произведение чисел от 10 доn

Написать программу, которая определяет является ли число простым

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...