Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
zirkakoi
18.02.2022 10:19 •
Информатика
Синформатикой . дано натуральное число. верно ли, что число принадлежит промежутку от а до в и кратно 3, 4 и 5. а и в . нужно составить программу в , но не с условием ( а чтоб все решалось через циклы, где это возможно! может кто знает.
Показать ответ
Ответ:
Mafg
03.10.2020 18:11
Бред конечно, но вариант
var
a, b, x: integer;
begin
readln(a, b, x);
while (x mod (3 * 4 * 5) = 0) and (x >= a) and (x <= b) do
begin
Writeln('да');
halt;
end;
Writeln('нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nastya06923
21.10.2021 00:28
Производится двухканальная (стерео) звукозапись с частотой дискретизации 48 кГц и глубиной кодирования 24 бита. Запись длится 1 минуту, ее результаты записываются...
helpmeplsaaa
28.12.2021 02:56
Математические предпосылки вс?...
Kdjs
19.04.2023 20:34
Необходимо перевести формулу на язык Паскаля...
Phgfg
19.11.2020 23:05
Для предоставления 1 мин фильма на экране монитора с разрешением 1366X768 и палитрой из 256 цветов по требуется: 1.960 Мбайт 2.около 960Кбайт 3.около 1024Кбайт 4.983...
сердянечок
08.02.2020 02:38
Какая встроенная функция языка паскаль,обозначается словом mod. 2 примера выполнения функции...
Danil10031
08.02.2020 02:38
Определите результат выполнения процедуры, которая обрабатывает строковые переменные, insert (s1, s, p), где s: =`ант`, s1: =`треко`, p: =3 a) антрекот b) антреко...
xhhxjdjdj4
08.02.2020 02:38
При бейсика нарисуйте летающую тарелку,...
kseniya279
08.02.2020 02:38
ответить на вопросы, нужно 1.выделили блок ячеек от в3 до с5. сколько ячеек выделено? какая ячейка отличается цветом? 2. выделили блок ячеек от а6 до а9. сколько...
cool107
15.08.2020 06:18
Найти сумму чисел кратных 23 из интервала от 5 до 1025 с цикла while турбо паскаль...
ShkolnikN15
17.06.2020 05:08
Всистеме человек-диктофон канал передачи - это а) звуковые волны б)микрофон в)цифровой сигнал г)речь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b, x: integer;
begin
readln(a, b, x);
while (x mod (3 * 4 * 5) = 0) and (x >= a) and (x <= b) do
begin
Writeln('да');
halt;
end;
Writeln('нет');
end.