Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Romabl4
16.05.2023 02:20 •
Информатика
Составить программу для нахождения цифр четырехзначного числа program n_221; var a, b, c, d, abcd: longint; что
Показать ответ
Ответ:
anikeevae
15.09.2020 19:28
Var a,n : integer;
begin
readln(a);
while a > 0 do
begin
n:= a mod 10;
a:= a div 10;
writeln(n)
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
мвдии
24.03.2020 16:32
Наведіть власні приклади сайтів з візуалізацією даних Навіть приклади використання штучного інтелекту в сучасних онлайн-платформах...
fhdhjdh
05.08.2020 18:04
Создать программу на Паскаль , определяющую все цифры четырехзначного числа....
alobatsevi4
22.05.2022 22:09
1.Что такое стиль в текстовом процессоре MS Word? 2.Каковы преимущества стилевого форматирования перед ручным? 3.Какие основные виды стилей существуют в MS Word? 4.Какова...
Мария55445
04.03.2023 16:35
Які основні групи цільової аудиторії сайту?...
Гудивзь
07.03.2020 09:21
Бағдарламалау тілдеріЖоғары деңгейлі бағдарламалау тілдерінің айырмашылықтары қандай?Дұрыс жауап саны: 2аппараттық ресурстарға тікелей қол жеткізу мүмкіндігімашинаның тәуелсіздігітабиғи...
Foxy4152
31.05.2021 23:36
Написать программу, осуществляющую заполнение и вывод на экран массива состоящего из 10 элементов последовательностью 1,3,5, (удвоенный порядковый номер минус 1)...
daanya666
22.03.2021 19:18
Завдання 5. stem-центручні вашої школи вирішили облаштувати stem-центр і представити свою ідею адміністрації табатьківському комітету школи. вони запропонували вам долучитися...
sofikolomiets04
14.05.2022 19:46
Дан список непродовольственных товаров. для каждого товара известны наименование, дата производства, начальная цена и конечная дата реализации. определить цены товаров на...
Hartfilia
24.10.2022 12:12
Какому цвету соответствует код 0 255 255 ргб модели...
К5О5Т5
24.10.2022 12:12
Для получения знака , надо нажать клавишу с точкой одновременно с клавшией...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
while a > 0 do
begin
n:= a mod 10;
a:= a div 10;
writeln(n)
end;
end.