Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
александра529
29.04.2023 10:14 •
Информатика
Написать программу выводящую на экран минимальное число больше 1000 которое делется на 189 паскаль
Показать ответ
Ответ:
xkhs1sjsiXjjs
09.10.2020 11:45
program morethen1000;
var a:integer;
begin
a:=1000;
while a mod 189 <> 0 do
a:=a+1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
yakormnevzad
01.07.2020 13:08
0,85 в двоичной системе счисления. с объяснением...
Равб
29.06.2021 15:00
Даны 4 монеты и гиря. одна из монет фальшивая, т.е. отличается по массе. масса настоящей монеты равна массе гири и равна 5г. с двух взвешиваний на чашечных весах определить фальшивую...
КитиКэт13
12.07.2021 22:08
Запишите значение переменной s, полученное в результате работы следующей программы.цел s, ks:=5нц для k от 5 до 9s:=s+5нцвывод sответ:...
Keks5478568
04.11.2020 19:47
Дан целочисленный двумерный массив, размерности n х m. Найти количество отрицательных элементов, больше -9....
Almira19681
12.10.2021 19:30
Найти угол EOD прямоугольника ABCD по чертежу ниже...
Russkikh11
16.02.2022 01:11
Сендердин эн айт... келеди как правильно вставить буквы?...
Mawamawa00
16.02.2022 01:11
В урне 2 белых и 5 красных шаров. Найдите вероятность того, что наудачу извлеченный из урны шар окажется: 1)белый3)зеленый...
mam1975
16.02.2022 01:11
Тыркелды синонимы калай...
Salat12
16.02.2022 01:11
II. Look at the table and complete the sentences with the correct form of the vert have got / haven t got / has got / hasn t gota lot of comeg. Simone has got a basketball. V5....
Христя2017
16.02.2022 01:11
В последовательности фигур имеются 9 треугольников и 5 кругов. Задайте вопрос так, чтобы задача решалась вычитанием и решите её...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program morethen1000;
var a:integer;
begin
a:=1000;
while a mod 189 <> 0 do
a:=a+1;
writeln(a);
end.