Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zheniskanovaa
22.12.2022 22:05 •
Информатика
Дано четырехзначное число. вывести на экран каждую цифру отдельно (программа pascal)
Показать ответ
Ответ:
Vlada2005Bee
05.10.2020 17:38
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ВладиславБелоус
19.03.2022 18:13
Количество первоклассников на 1 сентября 1986 года было 870 тыс. чел. Ежегодно количество увеличивалось на 10%. Начиная с 1990 года процент прироста упал на 5%, а с 1995...
KatyushaLis77
23.11.2021 00:42
1. Как можно научить робота двигаться по линии? 2. Какой вариант робота считается лучшим, с одним датчиком или двумя и почему? (ПОЛНЫЙ ОТВЕТ ИЛИ УДАЛЮ ВАШ ОТВЕТ) ДАЮ 20...
tatiana342
15.05.2023 22:22
1. Перечислите три типа циклов 2. Какой цикл используется чаще других?3. С какой целью используется в программе цикл do-while?4. Объясните синтаксис цикла с постусловием5....
srigermisha1
02.10.2020 06:39
Задания для 9-11 классов: 1.В одном из приведённых ниже слов допущена ошибка в постановке ударения: НЕВЕРНО выделена буква, обозначающая ударный гласный звук. Разделите...
fomax1337
26.05.2021 02:36
Сколько принцип перехода к рыночной экономике перечислил первый президент Узбекистана...
sashabulaev21
26.05.2021 02:36
Мына формуламен берілген функциялардан тура пропорционалдықты теріп жазындар...
Улынись678
30.03.2023 11:34
Сколько литров углекислого газа образуется из 2 моль этилового спирта?По подробнее...
yulia123dron
30.03.2023 11:34
ЖАТТЫҒУ Я буду благодрен кто ответит...
Eldar225566
30.03.2023 11:34
Так видно из рисунка, нато из рисунка, на схеме используется толькополовинное напряжениеление. Кроме этого, также сильно меняется еговеличина. Поэтому чаше ису чаще используются...
Таксильяна2006
04.01.2023 01:31
З якої планети прибули на землю Нанті та її бабуся?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10);
End.