Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
PonchikPonchikovuy
01.05.2022 07:18 •
Информатика
Найти сумму цифр целого положительного числа
Показать ответ
Ответ:
anaraermus
03.07.2020 06:45
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
курочка5
02.10.2022 00:47
Вчём различие между фактографическими и документальными бд?...
Nastenka5738
15.04.2022 15:46
Вчёмбыла основная трудность при чтении еипетских иероглифов?...
abogdanov94
15.04.2022 15:46
Для передачи информации люди использовали разнообразные идеи. некоторые из них связаны с ниже изображениями. кратко опишите эти идеи. (нарисованы: костёр, сумка с конвертами...
valentina05ru
14.12.2021 03:08
Как выделялось на папирусах начало новой ! : 3...
sakhnovavaleri1
21.12.2020 19:09
Склавиатуры одной строкой вводят имя и фамилию. составьте программу, которая определяет, есть ли во введенной строке заданный символ...
MrLinar
03.10.2022 18:00
1.с клавиатуры вводят слово и симвал.составьте программу ,которая а)проверяет,есть ли в этом слове данный симвал. б)определяет позицию данного символа. в)подсчитывает количество...
Даниил12345666
03.10.2022 18:00
1.с клавиатуры вводят слово и символ.составьте программу ,которая определяет позицию данного символа....
anuaraminov10ozppq2
08.10.2022 09:38
На двух островах сидело 79 чаек. когда с одного острова 15 чаек улетело в море, а 12 перелетели на другой остров, на обоих островах чаек стало поровну. сколько чаек было сначала...
рпрпрп1
12.04.2020 08:46
Придумать два сложных высказывания со словами связками и сделать вывод.заранее ....
angelina3404
04.06.2022 13:04
171в восьмой системе счисления +d5в шестнадцатой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.