Расположите величины в порядке убывания: 1024 бита 1000 байтов 1 бит 1 байт 1 кбайт

они могли обозначать союзы, знаки препинания, слова в один слог.

пусть [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.