Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ElizabethFilps
29.03.2022 06:29 •
Информатика
Дано трехзначное число. найдите сумму его цифр. входные данные вводится целое положительное число. гарантируется, что оно соответствует условию . выходные данные выведите ответ на . (примеры: входные данные-179,выходные данные-17) решить в паскале
Показать ответ
Ответ:
litvinsofia245
03.10.2020 00:02
Var a,s:integer;
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
akopovalizaveta
19.02.2021 19:23
Как называются место, где спрайты двигаются, рисуют и взаимодействуют...
Иноним1111111
07.05.2023 11:56
Скільки разів виконається команда print у зображеній програмі?k= 3і = 2k= ii = kfor t range(i+k):print( )...
Evazaur
14.01.2020 05:13
Скільки біт в одному байті?...
mariazeleznak2
02.05.2021 17:41
Расположи номера за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за диваны & кресла & покупка диваны & покупка кресла |...
ксениякейт
18.03.2022 03:42
Составить свои алгоритмы(линейный, с повторениями,с ветвлениями)...
alexguzz55
26.12.2020 09:59
Яким є порядок розв язування задач, у яких передбачено опрацювання деякої сукупності даних? 2. Як зміни елементів масиву мовою програмування Free Pascal, а які — мовою програмування...
Сашуля141
30.06.2021 10:46
Как будет выглядит эта программа полностью.Очент...
mikimouse9
08.11.2020 12:02
с информатикой плззз....
ПОМОГИТЕ13217
11.01.2022 13:14
ИНФОРМАТИКА 8 КЛАСС 1. Какая логическая функция изображена на схеме (фото 1) НЕ (Х И Y) НЕ (Х) И НЕ (Y) НЕ (Х ИЛИ Y) НЕ (Х) ИЛИ НЕ (Y) 2. Для какой функции, изображена данная...
Рыпвапрвгпвшпр
28.11.2021 19:31
Сканируется цветное изображение размером 20,32×20,32 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 32 бита. какой информационный объём будет иметь полученный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.