Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Лапушка150
22.02.2020 00:13 •
Информатика
Найти сумму 2 и 3 цифр четырехзначного числа в паскалях
Ответ:
aptyp4ik228
08.10.2020 12:11
Var a:Integer;
begin
readln(a);
WriteLn(a div 100 mod 10 + a mod 100 div 10);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
НастяяКисаа
13.11.2020 12:12
A=3 if a+1==4: a=a+2 a=a*2 Відповідь: а= (нужно вставить ответ)...
ekimsev3
19.04.2020 23:26
Как убрать слева от гиперссылки это ненужное подчёркивание и оставить его только на тексте...
nikim05
28.12.2020 18:05
A=3 if a+1==4: a=a+2 a=a*2 Відповідь: а= (нужно вставить ответ)...
ppaulineppauline
18.03.2023 05:15
Основные возможности редакторов клипов и фильмов...
хели3
03.10.2022 07:17
Составте программу на языке с++ для вычисления площади и периметр квадрата...
Котоман228
03.10.2022 07:17
Решить несколько по информатике 1 сколько времени потребуется сети работающей со скоростью 56000 бит/с, для передачи 30 страниц текста по 50 строк в 70 символов каждая, при условии...
Gu1ya04
08.07.2020 02:39
ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЭЛЕМЕНТОВ ЗАДАНОЙ ЧИСЛОВОЙ ПОСЛЕДОВАТЕЛЬНОСТИ(НА ПАСКАЛЕ)...
Zenkinadasha
19.01.2021 22:55
Для связи между компьютерами в локальной сети используется:а) спутникб) модемв) кабельг) телефон...
NickMean
28.11.2020 05:21
Сочинение рассказ на тему один день в риме. заранее ....
Clains
28.11.2020 05:21
Всоревнованиях участвовали 55 мальчиков и 43 девочки 1/7 часть учеников были третьеклассники сколько учеников других классов участвовали в соревнованиях?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
WriteLn(a div 100 mod 10 + a mod 100 div 10);
end.