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

1

Ответы и объяснения

2014-03-21T13:52:53+04:00
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.