ввести целое число и отыскать сумму его цифр ( с выводом

Ввести целое число и отыскать сумму его цифр ( с выводом "Сумма цифр числа ", a ," одинакова ", b) кумир

Задать свой вопрос
2 ответа
Алг Число
нач
  цел a, n, b
  вывод "Введите целое число", нс
  ввод a
  n:= a
  b:= 0
  нц пока nlt;gt;0
    b:= b+mod(n,10)
    n:= div(n,10)
  кц
  вывод "Сумма цифр числа ", a ," равна ", b
кон
Irina Mechtovich
у вас ошибка в 9 строке
Вера Гамашина
Да, спасибо. Ошибка (опечатка) исправлена.
Алг
нач
цел a,b,t
ввод a
t:=a;
b:=0;
нц пока tlt;gt;0
b:=b+mod(t,10);
t:=div(t,10);
кц
вывод 'сумма цифр числа ',a,' одинакова ',b
кон
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт