Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
4160 бит
Объяснение:
пусть [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.
чередование четных не чётных
Популярные вопросы