Регистрация
адиль77
07.03.2021 14:28
Информатика
Есть ответ 👍

Найти сумму цифр целого положительного числа

168
464
Посмотреть ответы 2

Ответы на вопрос:

Arisha54
Arisha54
4,4(65 оценок)
Begin write('введите целое положительное число m: '); var m : = readinteger;   assert(m > 0); var s : = 0; while m > 0 do begin s += m mod 10; m : = m div 10;   end; writeln('сумма цифр числа m равна ', s); end.
Sinderella2006
Sinderella2006
4,7(75 оценок)

1321369

Вызовы функций - сначала n = 9, потом - 3, 6, затем - 1, 2, 3, 1 - а потом все числа будут нулями (проследи закономерность того, как из 6 получаются 2 и 3, а потом - 1, а из 3 - только 1, рассматривай только ненулевые числа) Числа печатаются в обратном порядке. Поэтому вывод:

1

3

2

1

3

6

9

Требуемый формат - 1321369

Популярно: Информатика