Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пусть [a,b] - область и a< =b
var
a,b,x: real;
begin
readln(a,b,x);
if (a< =x) and (x< =b) then
writeln('принадлежит')
else
writeln('не принадлежит');
end.
Популярные вопросы