С КЛАВИАТУРЫ ВВОДЯТ Случайное Естественное ЧИСЛО.ВЫВЕСТИ НА ЭКРАН СУММУ ЦИФР ЭТОГО

С КЛАВИАТУРЫ ВВОДЯТ Случайное Естественное ЧИСЛО.
ВЫВЕСТИ НА ЭКРАН СУММУ ЦИФР ЭТОГО ЧИСЛА..

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

Пока Х больше нуля:
Обретаем остаток от дробленья n на 10 (т.е. заключительную цифру числа), добавить его к сумме и увеличить творенье;Избавляемся от заключительного разряда числа n методом деления нацело на число 10.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт