Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Егор200417
22.08.2022 05:50 •
Информатика
Дано натуральное число n. вычислить сумму цифр этого числа.
Показать ответ
Ответ:
avoka
24.05.2020 05:21
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Matushabos
14.06.2022 01:28
Документ ( без сжатия ) можно передать по каналу связи с одного компьютера на другой за 40 секунд . если сжать файл архиватором и передать сжатый файл а потом распаковать его на...
kabilet777
06.09.2022 14:26
Объем диска 700 мб. какую часть займет текст из 5200000 символов. (ответ округлить до 3 чисел после запятой)...
temirhanarmy
07.12.2020 11:36
Перед закрытием рабочей книги необходимо: а) сохранить рабочим листы б) закрыть отдельные листы в) ничего из вышеперечисленного...
Счacтье2005
10.11.2022 16:36
Не успеваю сделать это! , ! хотя бы часть! вопросы по программированию на языке паскаль* 1. что принято называть оператором? 2. с какого слова начинается раздел объявления данных?...
БродилаПоЛесу
21.11.2021 06:44
Нужно составить програмный код в lasarus на эту картинку. это , ! ...
sadernik2
23.07.2022 14:05
Ребят, нужна У Анны и Андрея новая игра. Андрей задумывает правило преобразования числовой информации, а Анна его отгадывает. Ниже приведены вопросы Анны и ответы Андрея. Попробуй...
маша200620
19.03.2023 06:50
Задание 2 Проанализируйте отрывок из произведения М. Зощенко «Аристократка». - Как раскрывается характер героев в этом эпизоде. Используйте цитаты из произведений для подтверждения...
galihanowa2015
19.06.2022 06:44
Пользуясь картой Количестваосадков, выявите особенности ихраспределения по земной поверх-ности в зависимости от географи-ческой широты. ...
Алёна112345678900
26.03.2023 12:34
Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать программу для следующих исходных данных:...
VladBugorkov
03.11.2020 07:03
РЕБЯТ , Я ВАС УМОЛЯЮ! прям оч №1 Дано: треугольник ABС, угол А прямой, CA=4, АВ=3. Найдите гипотенузу. №2 Дано: треугольник ABC, угол А прямой, CA=8, CB=10. Найдите катет АB. №3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.