С КЛАВИАТУРЫ ВВОДЯТ ПРОИЗВОЛЬНОЕ НАТУРАЛЬНОЕ ЧИСЛО. ВЫВЕСТИ ** ЭКРАН СУММУ ЦИФР ЭТОГО...

Question

С КЛАВИАТУРЫ ВВОДЯТ ПРОИЗВОЛЬНОЕ НАТУРАЛЬНОЕ ЧИСЛО.
ВЫВЕСТИ НА ЭКРАН СУММУ ЦИФР ЭТОГО ЧИСЛА..

Answer 1

var
a,x:integer;
Sum: integer;
begin  
WriteLn('введите целое число');
ReadLn( a );
x:= a;  
Sum:= 0;  
while ( x<>0 ) do  
begin    
Sum := Sum + (x mod 10);    
x := x div 10;  
end;
WriteLn( 'Сумма цифр числа ',a,' = ', Sum );

Пока Х больше нуля:
Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.