Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
geraveselov20
03.02.2022 18:30 •
Информатика
Определить, принадлежит ли точка m с координатой x отрезку [a, b] числовой прямой. значения x, a ,b вводятся с клавиатуры.
Ответ:
Danatil
15.07.2020 21:23
Var
a,x,b:real;
begin
readln(x,a,b);
if a>b then
if (x<=a)and(x>=b)then
writeln('Yes')
else
writeln('No')
else
if (x<=b)and(x>=a) then
writeln('Yes')
else
writeln('No');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
FOXyashka2005
26.07.2020 23:55
2) 2 км 425 м - 826 м 85 см •718 ц 02 кг - 41 т 250 кг - 8230 см2. 4190 мм2,5...
gwetyalina1345
06.09.2021 19:49
Будем считать, что система Школьный урок состоит из следующих элементов: ученик, учитель, учебник, тетрадь, классный журнал, классная доска, мел, парта, учительский стол,...
златагирко
18.10.2020 00:12
2. Як називаються і яке призначення кнопок 2, в групиАбзац вкладки Основне на Стрічці?...
milana372
02.06.2023 19:04
(1110*101+1101): 111-1011= решить надо ) рассписать надо и решить...
дэнчик626
04.04.2020 15:05
Бутылка уравновешивается на чашечных весах тарелкой и стаканом, два кувшина уравновешиваются тремя тарелками, бутылка и стакан уравновешиваются кувшином. сколько стаканов...
ibatullinazuhra
15.07.2021 14:38
Река сура к какому бассейну относится...
чудик78
12.05.2021 21:09
Розв язати рівняння: А)x=9; B13x-5=5x+11...
musinasim
04.12.2020 21:54
7 не делать делать только 8 и 15...
Хачачуля
03.10.2021 21:10
3. Наголос на четвертому складі має кожне слово рядка. А алмаатинець, самоучитель, електросвердло, ізометрія; Б веретено, винагорода, громадянин, допоміжний; В винагороджений,...
raksanaasifovna
03.10.2021 21:10
Какие орфограммы вы изучили в разделе глагол?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a,x,b:real;
begin
readln(x,a,b);
if a>b then
if (x<=a)and(x>=b)then
writeln('Yes')
else
writeln('No')
else
if (x<=b)and(x>=a) then
writeln('Yes')
else
writeln('No');
end.