Помогите решить задачу(pascal). Заданы числа a, b, c, d (a < b, c <d) и х.
Помогите решить задачу(pascal). Заданы числа a, b, c, d (a < b, c <d) и х.
Программа на Pascal для решения данной задачи может выглядеть следующим образом:
program CheckInterval;
var
a, b, c, d, x: integer;
begin
writeln('Введите значения a, b, c, d и x:');
readln(a, b, c, d, x);
if (x > a) and (x <= b) then
writeln('x принадлежит интервалу (a, b]');
if (x >= c) and (x <= d) then
writeln('x принадлежит интервалу [c, d]');
if (x > a) and (x <= b) and (x >= c) and (x <= d) then
writeln('x принадлежит общей части интервалов (a, b] и [c, d]');
end.
Программа сначала запрашивает у пользователя значения a, b, c, d и x. Затем она проверяет, принадлежит ли x интервалу (a, b], интервалу [c, d] или их общей части, и выводит соответствующее сообщение.