Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
llRosell
19.05.2023 15:34 •
Информатика
Найти сумму чисел четырехзначного числа(решить с циклом пост условия)!
Ответ:
nyatteloiv
01.10.2020 18:59
Var a,s:integer;
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Gohanhik
11.02.2021 21:48
Надо заполнить двумерный массив следующим образом...
wwwlikaigor123
14.12.2021 08:14
Алмаз написал на бумажке IP-адрес, который позже случайно порвал на кусочки. В результате получилось 4 обрывка с фрагмен- тами IP-адреса. Эти фрагменты обозначены буквами А,...
diana22022005
29.02.2020 07:06
Ввести с клавиатуры в одну строку фамилию имя и отчество, раздели их пробелами вывести фамилию и инициалы python...
привки228
03.03.2022 03:26
Какое значение получит переменная Y после выполнения следующей программы? Можно с пояснением? А: =12; В: =14; А: =10; В: =В+5; У: =А+В; END....
shittt6655
03.03.2022 03:26
Определить сумму элементов массива Р(n), значения которых заданного Т...
soldatgtr
02.10.2020 16:45
Вычеслите значения выражения: 1)2 DIV 5 2)7 DIV 7 3)63 DIV 7 4)17 DIV 3 5)17 MOD 5 6)10 MOD 6 7)24 MOD 7 8)12 MOD 15...
LERa007123
17.06.2021 09:19
1. У пары родился светловолосый мальчик, хотя оба супруга темноволосые. Муж обвиняет супругу в измене. Жена же сей факт отрицает разобраться в этой ситуации с точки зрения...
Killjoy008
17.06.2021 09:19
Представники протестантизму у Франції...
sw321
17.06.2021 09:19
КЛАСС Работа с текстом Из работы историка Н.И. Павленко «Нам остается ответить на вопрос, волновавший как современников, так и потомков: почему намерение верховников ограничить...
Виолетик2004
11.10.2021 01:25
Некто напил в 10-литровое ведро воды, затем 2 литра отлил и влил 2 литра сока. Хорошенько всё перемешав, он отлил 2 литра смеси и влил 2 литра сока. Наконец,и в третий раз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.