Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sanzharzhumakhp0a0p5
15.11.2020 12:35 •
Информатика
Для целого случайного числа из интервала [-30; 20] определите : а) попадает ли оно в интервал [5; 20] б) кратно ли оно 3 или 5 . в паскале
Показать ответ
Ответ:
dkim7985
30.07.2020 01:53
Var k : integer;
Begin
Write('Введите цифру от -30 до 20: ');
ReadLn(k);
if ((k <= 20) and (k>= 5)) then WriteLn('Промежутку принадлежит')
else
WriteLn('Промежутку не принадлежит');
End.
Вот и всё! Будут вопросы , пиши.
0,0
(0 оценок)
Популярные вопросы: Информатика
Karinka1Malvinka
22.05.2021 00:15
Прибавь к этим словам по 2 буквы и получи новые слова из 5 букв: --....
димон333777
22.05.2021 00:15
Сделать умозаключение.названия городов-имена собственные. имена собственные пишутся с прописной большой буквы....
arinakirkot
24.05.2022 16:58
Как по информатике создать систему паскаль?...
диана2460
18.06.2022 12:12
Составить программу в pascal. 1. в последовательности чисел подсчитать произведение чисел, кратных 3....
vorler
16.04.2022 22:13
Сколько секунд понадобится модему, сообщения со скоростью 28800 бит/с, для передачи 50 страниц текста в 30 строк по 60 символов каждая в кодировке unicode....
терминатор43
02.05.2022 03:56
Вфинал соревнований вышли 4 спортсмена: алексеев,борисов,васильев,дмитриев.перед началом финала болельщики высказали такие предположения: 1)васильев победит,а алексеев будет...
sonyavolkova26
02.05.2022 03:56
Вкакой системе счисления относится римская система счисления? 1)позиционной 2)непозиционной 3)знаковой...
kskskdksks
24.01.2021 12:06
1. пользователь вводит число: если число меньше 0 - вывести число отрицательное если число больше 0 - вывести число положительное если ввели 0 - число ни положительное,...
Artur2021
11.07.2021 00:08
Отметьте все верные утверждения о компьютерной памяти с произвольным доступом. 1.процессор может обращаться к отдельному биту памяти 2.процессор может обращаться только...
innesa260778
11.07.2021 00:08
Назвіть елементи діалогового вікна ос...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Введите цифру от -30 до 20: ');
ReadLn(k);
if ((k <= 20) and (k>= 5)) then WriteLn('Промежутку принадлежит')
else
WriteLn('Промежутку не принадлежит');
End.
Вот и всё! Будут вопросы , пиши.