Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
AnastasiyaEstDetey
29.10.2020 13:15 •
Информатика
Определить 3-ю цифру в записи 6-значного натурального числа. для нахождения 3 цифры надо "отрезать" от числа последние 3 и первые 2 цифры составить программу ,применяя операции div и mod. .
Показать ответ
Ответ:
amdrik1221
04.10.2020 00:46
Var
a,a1,a2: integer;
begin
writeln ('vvedi cislo');
read (a);
a1:=a div 1000;
a2:=a1 mod 10;
writeln (a2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Stasya1506
22.04.2021 00:40
Какими буквами обозначается высказывания...
belka20055
08.12.2021 16:45
Нарисуйте диаграмму, основываясь на данные таблицынужно плз...
manilipitaozk746
19.12.2021 08:15
3D модельдеу дегеніміз не?...
Georgeo19rus
08.01.2020 10:22
Максимальная скорость передачи данных в локальной сети 100 Мбит/с. Сколько страниц текста можно передать за 1 сек, если 1 страница текста содержит 50 строк и на каждой строке - 70...
evenen
03.01.2023 10:50
Какие свойства есть у векторной и растровой графики...
azatnacu
20.12.2021 13:48
Файл пішімдері мен олардың сәйкестік орнат түрлері арасындағы...
Маша270902
14.04.2020 03:39
Составить программу построения графика функции на Pascal...
veronicapcheli
17.05.2021 04:19
Составить блок-схему алгоритма и программу на Паскале для вычисления функций y(x). Ввести программу, вычислить значения функции и проверить ее. В отчет включить блок-схему алгоритма,...
ksysha98090909
28.10.2020 15:29
Как бы объяснил своим одноклассникам то, что узнал об тегрированной среде программирования (IDE)...
ayaulymmuratbekova
22.05.2020 10:42
Заполни таблицу в тетради . Виды роботов/Примеры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,a1,a2: integer;
begin
writeln ('vvedi cislo');
read (a);
a1:=a div 1000;
a2:=a1 mod 10;
writeln (a2);
end.