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

Найти сумму цифр целого положительного числа
- Предмет:
  Информатика
- Автор:
  chicken wingozbi
- 6 лет назад

Ответы 1

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.
- Автор:
  gwendolyn
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

помогите пожалуйста с номерами по богдановой номер 124,125 и 126. и если зашли то отвечайте плиз.
- Предмет:
  Русский язык
- Автор:
  connor7kxc
- 6 лет назад
- Ответов:
  
  4
- Смотреть
что означает выражение медный змий
- Предмет:
  Другие предметы
- Автор:
  prietoj4ud
- 6 лет назад
- Ответов:
  
  1
- Смотреть
электрон влетает а плоский конденсатор,с горизонтально расположенными пластинами,имея скорость 10^4 м/с,направленную параллельно пластинам.В момент вылета из конденсатора,направление скорости электрона составило угол 30 градусов с первоначальным направлением,определить разность потенциалов пластин,если длина пластин 10 см,расстояние между ними 2 см.
- Предмет:
  Физика
- Автор:
  bailee38
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Помогите сделать д/з по самопознанию назовите персонажей мультфильмов, которые отличались трудолюбием! Зарание спасибо!
- Предмет:
  Другие предметы
- Автор:
  dixie61
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years