Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
DenisPaliy
09.03.2023 03:38 •
Информатика
Составить программу для нахождения суммы чисел 4-х значного числа
Показать ответ
Ответ:
irinakol30p00rgy
06.10.2020 00:09
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Irresponsibility
08.05.2023 02:32
Определить, что будет напечатано в результате работы следующей программы var s,k: integer; begin s : = 0; for k : = 1 to 11 do s : = s + 12; writeln(s); end. 1)120, 2)132,3)143, 4)144...
leraloslerap00mm6
06.11.2021 10:46
Расположить в порядке убывания 6e(16) 142(8) 1101001(2) 100(10) 142(8)=98(10); 100(10); 1101001(2)=105(10); 6e(16)=110(10)?...
tsey12kirill
15.02.2023 10:10
Pascal abc дан одномерный массив, элементы которого - целые числа. также дано целое число xx. вставьте в заданный массив элемент xx перед всеми четными элементами. формат входных данных...
Пепечка
15.02.2023 10:10
Заменить все минимальные элементы на противоположные pascal abc...
axinoffdaniil
05.05.2021 02:06
Укажи робота, построенного из набора Lego Mindstorms EV3: *...
MishaZuev1
28.04.2020 23:20
скоро нужно отправить...
Эвелина123412
03.11.2022 18:54
6. Выразите словами смысл следующего арифметического выра- жения: 1+2+3+4+5 = 5 10 - 7...
ovezgeldyevaemi
13.09.2020 12:51
надо только решить 2,5,4 вопросы...
ivanovasvetak
01.11.2022 05:03
Написать программу на c++. Программа для выбора ребёнком цвета фломастера (Например, при нажатии на 1 на экран выводится Красный, при нажатии на 2 Синий и тд. Нужно 5 цветов)...
таня1697
18.04.2021 12:48
1. примеры информационных процессов в животном мире 2. примеры информационных процессов в растительном мире...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.