tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Синформатикой . дано натуральное
Синформатикой . дано натуральное число. верно ли, что число принадлежит промежутку от а до в и кратно 3, 4 и 5. а и в . нужно составить программу в , но не с условием ( а чтоб все решалось через циклы, где это возможно! может кто знает.
Владислав3212200
1 31.07.2019 01:10
4
Ответы
MonieGrape
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kristinapr02
23.02.2021 14:55
Вы пытаетесь сделать ключевым поле в таблице СУБД ACCESS, но это не удаётся сделать. Какие ошибки надо исправить?...
danmin444
23.02.2021 14:56
Определите значение выражения на языке Python 8//5+8%3. 2) Каким будет результат выполнения программы a=8 if a 2: print (“two”) if a 10: print (“ten”) 3) Сколько чисел выведет эта...
7Оля8
23.02.2021 14:58
Информатика пож сос вопросами (не шарю в робота технике) за...
olesmekhedova
30.03.2021 11:55
створіть масив елементами якого є 5 перших членів арифметичної пргресії перший член якої дорівнює 4 а її різниця -2 Вивести масив на екран...
Zabon
20.04.2020 10:49
В чём разница математической от имитационной модели?...
kirill5761
20.04.2020 10:49
Укажите наименьшее целое значение А, при котором выражение (xy 4A) ∨ (x ≥ 21) ∨ (x 4y) истинно для любых целых положительных значений x и y....
arseniyrom20p08lxy
16.11.2020 16:53
РАЗРАБОТАЙТЕ АЛГОРИТМ расчета оплаты коммунальных услуг, исходя из следующих тарифов: обслуживание 1 кв. м. жилой площади стоит 60 рублей, если квартира находиться выше 1-ого этажа,...
Melenocka0606
16.11.2020 16:53
ВРЕМЯ 4 МИНУТЫ Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов,...
Elsh777
16.11.2020 16:53
Как папки располагаются относительно друг друга?...
bodisss
16.11.2020 16:53
Какое количество информации несёт целое неотрицательное двузначное число?...
Популярные вопросы
ОБЪЯСНИТЕ ПОДРОБНО( чтобы сделать подобную) . Вычислите объем газа, полученного...
1
ОЧЕНЬ составить таблицу истинности по информатике Если можно, то решите на листике...
2
В упаковке с витаминами 7 желтых и несколько белых капсул. Какова вероятность вытащить...
2
Ледостав -это... * образование устойчивого ледяного покрова на реке ледяной затор...
1
6. Choose the correct variant. Birds ... to the south in autumn.A) flyB) to flyC)...
3
Правильно чи помилково стверджувати, що Реформація в Україні була виключно явищем...
2
По одному примеру Представьте, что вы разговариваете с другом. вам действительно...
2
В какой четверти кординатной плоскости расположена точка A(-2;a-b) при а 0 b 0?...
2
Расставьте скобки так чтобы равенство стало верным...
2
Выбери из списка верное утверждение. Моральный долг — это метафора, его на самом...
2
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.