Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Сива11
11.05.2020 21:09 •
Информатика
Дано целое 4-значное число.вставьте в середину число 0 ,например 5678=56078 ,через dif и mod paskal
Ответ:
wikawolchkowa
21.08.2020 19:22
Var a: integer;
begin
readln(a);
writeln((a div 100)* 1000 + a mod 100);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
КириллАлек
16.05.2021 11:39
Зяких джерел можна дізнатися про динозаврів...
яяя612
16.05.2021 11:39
Мощность алфавита составляет 1024 символа. каков информационный вес одного символа? 1.10 байт2.10 бит3.512 бит4.1 кб...
studentka87
26.07.2021 04:55
HTML HEAD TITLE My new Web-page /TITLE /HEAD BODY BGCOLOR = aqua TEXT red H2 Це Web-сторінка Світлани Марущак /H2 HR CENTER B Привіт! /B Мене звуть B Світлана /B /CENTER P Я вчуся...
America555
10.12.2022 00:15
по информатике (с решением...
ледезе
31.08.2021 13:51
Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся рандомно....
лулы
30.05.2020 15:55
Скласти 5 тестових завдань Опора Тварини...
Училка2281337
26.02.2020 06:50
Косцы. Какое чуство объеденяет косцов?...
chery97
07.02.2021 16:12
Почему Денис Кораблёв не выучил уроки...
Valya256
15.04.2022 06:10
Сделайте подписи к этим картинкам...
Rina12346
24.01.2022 15:23
Английский язык 26 Choose the correct answer. It takes ___ two-hour drive to get to the beach. A aB an C the D -...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
writeln((a div 100)* 1000 + a mod 100);
end.