Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
liz93
03.03.2020 15:07 •
Информатика
Если не сложно.разработать программу которая по введённому трёхзначному числу которая выдаёт отдельно три его цифры напечатанные друг под другом
Показать ответ
Ответ:
DashaZhur1752
08.10.2020 06:32
Плз. лучший ответ
program g;
var
a:Integer;
begin
writeln('Введите трёхзначное число');
readln(a);
writeln('');
writeln(a);
writeln(a div 100);
a:=a mod 100;
writeln(' ', a div 10);
a:= a mod 10;
writeln(' ', a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
тупоумная2525
01.03.2021 08:06
Решить.даны натуральные числа n,m; найти нод(n,m). использовать программу, включающую рекурсивную процедуру вычисления нод, основанную на соотношении нод(n,m)=нод(m,r),...
ппмв
26.06.2021 21:47
5. климат 1. представьте в виде таблицы следующий текст (информация за 2004 г.): в марий-эл количество осадков в июле составило i 79 мм. в пермской области средняя температура...
Grisha7089
07.03.2021 21:57
Какой формат файлов служит для хранения значков в ос windows?...
rrurr
24.02.2021 03:59
Составить программу, которая выводит таблицу квадратов и кубов натуральных чисел от 1 до 15....
arinakirkot
05.03.2022 14:32
ответить на вопрос,среди возможных негативных последствий развития современных средств информационных и коммуникационных технологий указывают: а)реализацию. гуманистических...
DruNastya
05.11.2020 14:14
8. ты с родителями в новогодние каникулы летал во владивосток навестить бабушку. на новый год вы подарили ей компьютер. но бабушка плохо в нем разбирается. и, чтобы ей...
Красотка1000485
06.04.2022 15:32
Умоляю нужно 30 ) 1. составить программу для определения вида четырехугольника, у которого две стороны параллельны. определить по двум прилегающим к одной из параллельных...
KamAbi003
12.03.2021 02:54
Через adsl-соединение файл размером 128 кб передается 12 секунд ( можно найти скорость соединения). сколько секунд потребуется для передачи файла размером 512 кб....
marinnka09
15.12.2021 02:31
Ниже приведена база данных. Дата Фамилия Имя Отчество Город рождения 1 Абылай Венера Бериковна 22.03.2004 Нур-Султан 2 Жапаров Кайрат Абаевич 02.12.2004 Алматы 3 Жанна...
alinka393
07.05.2020 01:11
Напишите недостающие команды, выполняемые пользователем 1.Выделен D2:E7...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program g;
var
a:Integer;
begin
writeln('Введите трёхзначное число');
readln(a);
writeln('');
writeln(a);
writeln(a div 100);
a:=a mod 100;
writeln(' ', a div 10);
a:= a mod 10;
writeln(' ', a);
end.