Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
liloanimatronic
20.07.2022 05:38 •
Информатика
Паскаль найдите все пятизначные числа которые делении на 133 в остатке 125 а при делении на 134 в остатке 111
Показать ответ
Ответ:
Ангелина8281
09.09.2020 21:47
Var i:integer;
begin
for i:=10000 to 99999 do
if (i mod 133=125) and (i mod 134=111)
then writeln (i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
slkncv
03.07.2021 02:26
Собери в мешок предметы с каким-либо общим признаком: книга, колесо, лимон, шкаф, марка, воздушный шар, часы, груша, флаг, тетрадь, яблоко, машина, слива, апельсин...
ilyaderkach98
09.01.2023 10:43
Работа в паскале в группе n студентов вводя по три оценки каждого студента подсчитать число студентов имеющих оценок 2...
юля417
21.07.2022 13:32
Имеется файл с текстом из 20000 символов.при наборе текста использовался компьютерный алфавит.текст необходимо скопировать на дискету ,на которой имеется свободная область памяти...
Snaga
16.06.2022 10:02
Скорость передачи данных через adsl-соединение равна 1024000 бит/с. сколько минут займет передача файла размером 600000 кбит через данное соединение...
shybite
09.05.2021 19:53
Козак Швайка захисник рідної землі...
димон7777
09.09.2022 02:27
Знаете ли вы, когда и где появились первые книги?...
Olga2442
21.10.2021 04:11
Найдите в приведенном писке ТРИ правоохранительных органа : полиция правительство добровольная народная дружина таможня городской суд...
adrien3000
18.03.2023 14:40
Профілактика порушень постави- це.....
aidarair
22.01.2022 22:32
решить всё под 3-м и 4. Нужно прям подробное решение...
Лара505
14.09.2020 00:30
Написать сочинение про вакулу по плану 1 кто этот герой2 портрет3черты характера ,поступки4 авторское и ваше отношение к персонажу ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=10000 to 99999 do
if (i mod 133=125) and (i mod 134=111)
then writeln (i);
end.