Question

написать программу в паскале:1.Проверить принадлежность числа х к интервалам [a;b] или [c;d].

Answer 1

var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.