Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DerekHale23
10.02.2022 04:17 •
Информатика
Для целого случайного числа из интервала [-30; 20] определите : а) попадает ли оно в интервал [5; 20] б) кратно ли оно 3 или 5 . в паскале
Показать ответ
Ответ:
аишамамедова
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 оценок)
Популярные вопросы: Информатика
marsik12912
04.07.2022 03:00
Знаходження мінімального елементу стовпчика та загального мінімуму (з індексами) з процедурамі ілі фунциямі пліс паскаль...
данил2080
11.03.2020 09:41
Жасанды интеллектіге кіріспе: жіктеу есептерін шешуде алгоритмдерді қолдану онлайн мектеп...
feafea201006
11.01.2023 02:03
Плата за посылку бандероли вычисляется так: за бандероль весом до 50г взимается 10р. за каждые следующие полные и неполные 10г - еще по 5 р. вычислить плату за бандероль, если...
ostapsheremetaoooo
09.01.2020 06:14
Составьте предложения по схемам на тему наши школьные дела, 1) две основы, 2) подлежащее сказуемое дополнение и дополнение, 3) определение подлежащее сказуемое дополнение!...
Серггій26072006
01.10.2022 05:26
Составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random); +эта программа должна включать в себя массив ( в писать по возможности...
Sekureti556
18.12.2022 20:27
Дан радиус окружности. найдите длину окружности и площадь круга. информатика...
Danьka323323
13.05.2020 04:26
Создайте массив, который хранит фамилии 8 учеников вашего класса...
sab1na666
08.08.2020 02:16
Представьте число -35 в двоичном виде в восьмибитовом представлении в формате целого со знаком.Покажите полное решение...
nellit03
28.02.2020 02:10
Отметьте 4 операции при форматировании документа * Вставка скопированного фрагментаУдалениеИзменение начертания шрифтаЗаменаИзменение цвета шрифтаКопированиеВыравнивание текста...
wwwcom1
15.08.2020 10:06
Отметьте 4 операции при редактировании документа *Вставка скопированного фрагментаУдалениеИзменение начертания шрифтаЗаменаИзменение цвета шрифтаКопированиеВыравнивание текста...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Введите цифру от -30 до 20: ');
ReadLn(k);
if ((k <= 20) and (k>= 5)) then WriteLn('Промежутку принадлежит')
else
WriteLn('Промежутку не принадлежит');
End.
Вот и всё! Будут вопросы , пиши.