Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vera0503
20.01.2021 21:39 •
Информатика
Впаскале проверьте, принадлежит ли интервалу (а,b) число с, где а,b,с- любые числа?
Показать ответ
Ответ:
JugerHangerKrag
20.07.2020 21:55
Program zadacha;
var a,b,c: integer;
begin
writeln ('Введите интервал');
read (a,b);
writeln ('Введите число');
readln (c);
if (c>=a) and (c<=b) then writeln ('Число принадлежит интервалу')
else writeln ('Число не принадлежит интервалу');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Селена24на7
18.03.2023 16:22
Вклассе 30 человек. за контрольную работу по информатике получено 8 пятёрок,12 четвёрок,6 троек и 4 двойки. какое количество информации несёт сообщение о том, что андреев получил двойку...
matlis
01.04.2021 23:08
Вычислить десятичный эквивалент 100,21(4)...
Лоликус
22.04.2022 01:42
Обменять значения в переменных языка Паскаль x[4] и y^[3]; при выборке значения из массива y^ используйте команду XLAT....
тая112
14.03.2022 23:35
Дан массив из точек и тире. Построить машину Тьюринга, которая удаляла бы пары идущих подряд точек и тире....
Qwtyt
12.06.2020 23:13
10. Как записывается оператор вывода? а. writeln(a1,a2,...an); б. readkey(a1,a2,...an); в...
даsha3
07.10.2021 09:43
Для хранения растрового изображения размером 166×166 пикселей отвели 4 КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
hellkrest1
24.11.2020 04:18
Дан массив A(n). Создать новый массив, элементами которого являются произведение A(i) на максимальный элемент массив A...
coco171
28.02.2020 22:30
Всеминаре участвовало 100 человек( и информатики). каждому был задан вопрос: если вас не считать, то кого больше или информатиков на семинаре? . после опроса 51 участника, которые...
дэфолт123
13.01.2023 11:53
Написать программу позволяющую по последней цифре числа определить последнюю цифру его квадрата...
koshkinaeri
07.05.2021 21:24
После преобразования растрового 256-цветного графического файла в серно-белый формат (без градаций серого) размер файла уменьшился на 70 байтов. найдите размер исходного файла?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c: integer;
begin
writeln ('Введите интервал');
read (a,b);
writeln ('Введите число');
readln (c);
if (c>=a) and (c<=b) then writeln ('Число принадлежит интервалу')
else writeln ('Число не принадлежит интервалу');
end.