Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Aidana1620
08.05.2023 23:32 •
Информатика
Напишите программу, которая вводит с клавиатуры пятизначное число и удаляет из него первую и последнюю цифру, а затем выводит на экран полученное трехзначное число. например, из числа 12345 должно получиться число 234. строки не использовать.
Ответ:
SashaGirl13579
09.10.2020 21:55
Var a: longint;
begin
readln(a);
a:=a mod 10000;
a:=a div 10;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
LPKenion
18.01.2022 23:14
6834 - 1 цифра четная ( да или нет)...
pastoling
20.05.2020 01:25
Из каких четырёх групп устройств состоит любой компьютер?...
DdMirko
19.08.2022 15:00
Заполни пропуски притекающих значениях перемкнных k=12 m=4...
dimapivovarov
02.03.2020 06:49
Программа ожидает ввода натурального числа N (0 N 30). На следующей строке она должна вывести на экран числа от 1 до N включительно через пробел. Ниже надо вывести...
адиль77
15.12.2022 12:21
Запишите полный путь к файлу readme.txt, если известно, что он хранится в папке help, вложенной в паппку home, находяйщейся на диске d:...
chackandrew
30.12.2022 18:37
Чому пузир хоче віддати свою дочку соню за чоботенка? (п єса хазяїн )...
кира674
30.12.2022 18:37
Дан массив с(13). найти номер последнего отрицательного элемента массива...
бюро
30.12.2022 18:37
Сторона равностороннего треугольника равна 16 корней из 3. найти его высоту...
380668368689
30.12.2022 18:37
Сочинение на мой любимый праздник новый год. 100-120 слов!...
Boikomariana12
30.12.2022 18:37
Яке завдання пузир дає ліхтаренкові, переводячи його в мануйлівку? (п єса хазяїн )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
a:=a mod 10000;
a:=a div 10;
writeln(a);
end.