С КЛАВИАТУРЫ ВВОДЯТ ПРОИЗВОЛЬНОЕ НАТУРАЛЬНОЕ ЧИСЛО.
ВЫВЕСТИ НА ЭКРАН СУММУ ЦИФР ЭТОГО ЧИСЛА..
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
