Прошу Помочь

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

Пример:

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

12345

Сумма цифр 15.

Question

Информатика

Тамуся

22 марта, 12:19

Прошу Помочь

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

Пример:

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

12345

Сумма цифр 15.

+3

Ответы (1)

Знаете ответ на вопрос?

Галя · Answer 1

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.

Прошу Помочь

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

Пример:

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

12345

Сумма цифр 15.