Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
redstar33
12.11.2021 19:56 •
Информатика
Дано натуральное число. определите сумму цифр в нем
Показать ответ
Ответ:
krav4enkom
07.10.2020 23:01
Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
13854
s = 21
0,0
(0 оценок)
Ответ:
к2а2т2я
07.10.2020 23:01
Разделить на 2 и умножить число которое получилось
0,0
(0 оценок)
Популярные вопросы: Информатика
aljoona99
10.05.2020 16:19
Вывести на экран все трехзначные числа кратные 13 Python...
Hause1
23.12.2022 01:08
Составить блок схемы алгоритмов к следующим задачам: №1. Найти сумму ряда чисел от 1 до 100. Полученный результат вывести на экран №2. Посчитать сумму числового ряда от...
Tilinika
01.08.2020 23:40
Суммативное оценивание за раздел ,,компьютер и безопасность,,5 класс...
Miniplayer
10.05.2021 22:35
На рисунках показаны сорости фищических тел. Используя данные, не составьте таблицу и постройте Цилиндрическую гистограмму очень ОЧЕНЬ ЗАРАНЕЕ БЛАГОДАРЮ ...
Xaker567
28.11.2021 09:58
Программаға объектілерді кірістіру қандаи артықшылар береді?...
aiko20052015
12.09.2021 19:10
Верны ли следующие равенства: 33₄=21₇ 33₈=21₄...
ОTВЕT
12.09.2021 19:10
Выпиши в кружки такие числа чтобы получился дванный резултат. запиши алгоритм в виде арефметического выражения.2+? ×? +3=15....
бобикбарбос
03.01.2020 20:36
Из слова ‘программа’ получить 4 новых слова. паскаль....
Пелагея14
03.01.2020 20:36
Автоматическая камера производит растровые изображения размером 1280х1280 пикселей. при этом объём файла с изображением не может превышать 1.4 мб, упаковка данных не производится....
Дария008
01.07.2020 20:49
Создайте 5 переменных типа char, предложите пользователю ввести слово из пяти букв и покажите эти символы (слово) на экран. (символы вводить латиницей, т.к. кирилица будет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
13854
s = 21