Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
modovonchik
28.09.2020 04:58 •
Информатика
Составить программу, сумма цифр пятизначного числа
Ответ:
AvdeevaJanna14
19.08.2020 13:48
Var n,s : Integer;
Begin
Readln(n);
s:=0;
While n>0 do
Begin
s:=s+(n mod 10);
n:=n div 10;
end;
Writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Evklidushka
26.03.2022 21:35
Укажите истинные высказывания: 1. а) человек разрабатывает алгоритмы б) человек работой других исполнителей по выполнению алгоритмов в)человек исполняет алгоритмы 2. а)...
ulyanooo
10.04.2023 03:26
Задача. Составить программу выполнения арифметических действий сложения, вычитания, умножения, деления для двух чисел введенных с клавиатуры...
урааа28
05.06.2021 21:29
Ришите (-0,09)+(-8,2)помагите ...
Noname010203
02.06.2020 11:17
? - жанр самостоятельного высказывания о художественном произведении на основе эмоционального переживания прочитанного или увиденного, описание настроения, вызванного произведением....
danilglazkov1259
02.06.2020 11:17
с 7 задании читайте внимательно...
aveiro1
14.10.2020 10:03
Сократи дробь: 31*15 ⁻⁻⁻⁻⁻⁻⁻ 41*35...
Vika0095
07.11.2021 15:00
Прочитайте текст. На основе этого текста инспользуя дополнительные источники, создайте рекламный буклет«Современный вокзал «Нурлы жол».Это первый вокзал в Казахстане с необычным...
FluffyFoxLove
07.11.2021 15:00
Сократите дробь на наибольший общий делитель ее числителя и знаменателя: а) 60105 б) 91130 в) 6 •147 •12...
EEEboyyyyy
07.11.2021 15:00
Первому даю лацк, вообще лёгкая задача...
геймер39
24.05.2020 22:29
Найдите ошибки в сочинении (7-пунктуац., 6-грамм.): Пьеса Вишневый сад вышла в свет в самом начале 20 века и является своего рода итоговым произведением Антона Павловича...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Begin
Readln(n);
s:=0;
While n>0 do
Begin
s:=s+(n mod 10);
n:=n div 10;
end;
Writeln(s);
end.