Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Gollagan
23.11.2022 20:32 •
Информатика
Написать программу: найдите все пятизначные числа, которые при делении на 133 в остатке 125, а при делении на 134 в остатке 111. с паскаля
Показать ответ
Ответ:
Siberia19
01.10.2020 13:47
Uses crt;
var a:integer;
begin
for a:=10000 to 99999 do
if (a mod 133=125) and (a mod 134=111) then writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
voxlemap
24.02.2023 02:59
Составить блок схему, чтобы определить сумму, равную 1+3+5+7+9+ (где n=33)....
vladislav4239
24.02.2023 02:59
Сообщение, записанное буквами 64-х символьного алфавита, содержит 20 символов. какой информационный объем оно несет?...
Rhhufyko
24.02.2023 02:59
Объем информационного сообщения 16777216 битов выразить в килобайтах и мегабайтах....
shorgk
12.09.2020 10:27
Построить блок-схему. такая: введя сегодняшнюю дату, вычислить завтрашнюю дату....
чудик78
25.03.2022 03:17
Получите новое слово, удалив буквы в начале, середине или в конце исходного слова. наберите полученные слова после исходных. домино – потолок – колокол – перезвон – графин – программа...
1XyJIuraH1
25.03.2022 03:17
Подскажите вот вопрос алексей не был вторым борис не был первый евгений не был не первым ни пятым михаил отстал от алексея на два места олег финишировал сразу за борисом...
Anastasia191327
22.05.2023 20:26
A = 16b = 16if a!=b:print(1)else:print(0)какой ответ !!...
EmilN304
10.04.2022 21:59
Складіть проект для малювання трьох однакових орнаментів, кожен з яких складається з 10 квадратів....
ttttt18
24.08.2022 22:35
Скласти програму, яка знаходить найдовше слово в масиві....
accolic
06.01.2021 14:00
Представить числа в нормализованном формате 1) 1564 (в 10 сс) 2) - 0,00105(в 10 сс) 3) 128,1(в 10 сс) 4) 0,001(в 10 сс) 5)0,000000025(в 10 сс) 6)100,001(в 10 сс)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
for a:=10000 to 99999 do
if (a mod 133=125) and (a mod 134=111) then writeln(a);
end.