Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DashSHAD0W
15.02.2022 13:15 •
Информатика
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. из этой программы сделать программу с циклом repeat
Показать ответ
Ответ:
kgulina01
08.10.2020 10:29
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Zhenechka12332145
09.10.2021 01:53
Сколько байт в слове технология в кодировке cp1251...
katya0132
16.04.2023 12:16
Написать программу с циклом while (вывести положительные числа кратные 5, которые меньше 1000)...
turtuyrty
03.12.2020 08:02
Сзаполни кроссворд и в выделенных клетках ты прочитаешь слово. правильно подобрать слова тебе предложения. 1)tiny usually has his breakfast at 9 o 5 букв 2)there is...
polinabaryshni
14.12.2022 09:58
Таблица. пути развития полиса афины спарта 1) положение 2) хозяйственная деятельность 3) органы 4) роль народного собрания 5) особенности рабовладения...
newsergy81
14.12.2022 09:58
Вбиблиотеке одной школы учебников по мате - ке для 6 го класса в 1,4 раза больше, чем в другой. если из библиотеки первой школы передать 25 учебников в другую, то учебников...
Torquis
14.12.2022 09:58
Как описать книгу новые приключения электрлника...
JULIA110
14.12.2022 09:58
Разложите на множители вынесения общего множителя: х^3-2х^2-4х y^5-y^3+y^2...
Nik0name1
14.12.2022 09:58
Look at the family tree again.who is/are: 1 twins? 2 bill`s parents? 3 bill`s grandparents? 4 mike`s son? 5 sam`s wife? 6 janet`s husband? 7 sue`s daughters? 8 in their...
AlexCameron
14.12.2022 09:58
Укажите, какая дата относится к борьбе княжеств против агрессии рыцарей а) 1262 г. б) 1234 г. в) 1380 г. г) 1242 г....
snddrayuk
14.12.2022 09:58
дикая собака динго нужно краткое содержание для читательского дневника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.