Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
taisia2305
03.06.2021 19:37 •
Информатика
Дано натуральное число n. вычислить сумму цифр этого числа.
Ответ:
eraly2
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 оценок)
Популярные вопросы: Информатика
natashakuznecz1
19.01.2020 22:23
Задание для питона. Дан двумерный массив, заполненный случайными двухзначными числами,удалить все столбцы сумма элементов которых меньше...
БлинчикТян
23.02.2022 06:28
Дан одномерный массив В[N], (0 N 50). В этом массиве поменяйте местами m- ый элемент с k-ым элементом и выведите на печать полученный массив.Дана двумерная квадратичная...
sonashkumatova
09.01.2021 09:24
Что значит i в информатике...
Alekseimiller
09.01.2021 12:26
Ограничение времени 1 секунда Ограничение памяти 64MbВвод стандартный ввод или input.txtВывод стандартный вывод или output.txtЮля живёт в многоэтажном доме, Миша пришел...
Music05
06.09.2022 13:26
Вывести на экран результат таблицы умножения на число, которое введёт пользователь (от 1 до 10), используя циклический алгоритм. (Python)...
yaach1
28.05.2023 18:39
Скорость передачи данных через ADSL- соединение равна 128000 бит/c. Через данное соединение передают файл размером 250 Кбайт. Определите время передачи файла в секундах....
egorkovalev000007
09.03.2023 03:23
Продолжыте ряд 10 11 12 13 14 20 21 22 23 24......
NikitaZdanovich
26.07.2022 15:17
Вопросы отвечать честно! 1)Какое охлаждение можно поставить на процессор intel core i3 2100 (ПК процессор) Кроме боксового охлада какой-нибудь башню, можно отправить ссылку...
turebekrasul
22.01.2022 16:40
Определить существует ли треугольник с заданными длинами сторон a,b,c. Если да, вычислить его площадь по формуле Герона. Формула Герона имеет вид:S=p(p-a)(p-b)(p-c), где...
annamasha2004
23.12.2021 02:44
Перевести число 35 из 10-ичной системы счисления в 2-ичную...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.