Задать вопрос
18 сентября, 20:14

Прошу Помочь

"A": Ввести натуральное число и найти сумму его цифр.

Пример:

Введите натуральное число:

12345

Сумма цифр 15.

+5
Ответы (1)
  1. 18 сентября, 22:04
    0
    Program Y;

    uses crt;

    var

    a, Sum:integer;

    begin

    writeln ('Введите число ') ;

    readln (a) ;

    Sum : = 0;

    while a > 0 do begin

    Sum : = Sum + a mod 10;

    a : = a div 10;

    end;

    writeln ('Сумма цифр равна ', Sum) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Прошу Помочь "A": Ввести натуральное число и найти сумму его цифр. Пример: Введите натуральное число: 12345 Сумма цифр 15. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы