Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Eldar1001
14.09.2021 17:34 •
Информатика
Синформатикой . дано натуральное число. верно ли, что число принадлежит промежутку от а до в и кратно 3, 4 и 5. а и в . нужно составить программу в , но не с условием ( а чтоб все решалось через циклы, где это возможно! может кто знает.
Ответ:
умник1614
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 оценок)
Популярные вопросы: Информатика
10ЛК
08.07.2021 21:30
Как определить количество цветов в палитре...
2017mariana
08.07.2021 21:30
Влетний лагерь приехали отдыхать три друга: миша, володя и петя. известно, что каждый из них имеет одну из следующих фамилий: иванов, семёнов, герасимов. миша - не герасимов....
LipskiyTimur
08.07.2021 21:30
Дан целочисленный массив a(n). найти наибольшее из нечетных и количество четных чисел, входящих в последовательность a[n], a[n]+1....
kamilapark1
26.08.2021 01:41
Сколько бит видиопамяти требуеться для кодрирования одного пикселя 4096-цветного изображения?...
SerezhaYakovle
07.12.2020 22:54
22 задание. ЕГЭ по информатике: У исполнителя есть три команды, которым присвоены номера: 1. Прибавить 1 2. Умножить на 2 3. Умножить на 3 Сколько существует программ, для...
happycatcom
20.08.2021 23:59
Как убрать эту нумерацию строк подскажите...
GOrzen32
10.06.2021 17:02
Какова значимость различных гиперссылки при создании документа в текстовом редакторе? Ребята, ,я запуталась вообще уже!☹️...
SoloveiG
28.08.2020 00:00
Из 9 монет одинакового достоинства одна фальшивая (более легкая). За какое минимальное число взвешиваний на чашечных весах без гирь вы можете её определить ДАЙТЕ ОТВЕТ 6...
vladimirn177
28.02.2021 06:15
Что означает z/=2 ???(информатика)вишло 6/=2 как ето решать ?...
kat247
10.11.2020 23:51
3. Виправте помилки у програмі Друк простих чисел const LIMIT = 500; var i,j, lim: word; begin writeln; for i:=1 to LIMIT do begin j:=2; lim:=round(sqrt(i)); while (i modj...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.