Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
omsbksrj
13.11.2020 22:17 •
Информатика
ввести натуральное число и найти сумму его цифр. пример: введите натуральное число: 12345 сумма цифр 15.
Показать ответ
Ответ:
fearlessaliss
15.09.2020 12:24
Program Y;
uses crt;
var
a, Sum:integer;
begin
writeln('Введите число ');
readln(a);
Sum := 0;
while a > 0 do begin
Sum := Sum + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Sum);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ЮлияБогинская
10.09.2020 20:16
Самая большая единица измерения в информатике? ! 50...
Лиза5685
11.09.2020 00:10
Как добавить рандомное число из диапозона 1-1000 в название файла? pascal...
alinasun230503
28.08.2022 17:05
Назовите приложения инструментальной среды конечного пользователя...
olesyasnegovsk
20.09.2020 18:27
Написать инструкцию вывода значении дробных переменных х1 и х2. на экране перед значением переменной должен быть выведен поясняющий текст, представляющий собой имя переменной,...
INokentiy228
16.06.2021 09:44
Главная мысль стихотворения зимнее утро...
milanali
16.06.2021 09:44
Половое поколение обелии бесполовое поколение предоставлено...
mczuf
16.06.2021 09:44
Синтаксический разбор -никто не знал ни его состояния,ни его доходов, и никто не осмеливался о том его спрашивать....
kamilakruvetka
16.06.2021 09:44
Вазимодействием каких тел обусловлено движения облаков; стрелы, выпущенной из лука; снаряда внутри ствола пушки при выстреле; вращение крыльев ветряного двигателя?...
Matvey1145
16.06.2021 09:44
Какие столицы в древнем египте среднего царства...
Belayalbina2512
16.06.2021 09:44
Представьте одночлен в стандартном виде подчеркните его коэффициент 6bb в 2 степени,1.5c в 3 степени d в 4 степени * 8с в 2 степени dв 5 степени,-0.8u в 4 степени * 4t...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a, Sum:integer;
begin
writeln('Введите число ');
readln(a);
Sum := 0;
while a > 0 do begin
Sum := Sum + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Sum);
End.