Определите назначение знака 1

определите назначение знака ii​

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

во времена конфуция писали на узеньких дощечках 'из расщепленного бамбука. тонкую кисточку или палочку обмакивали в черную тушь и наносили иероглифы сверху вниз. если делали ошибку, то соскабливали написанное ножом. потом в дощечках делали отверстия и продевали бечевку. связка бамбука и была древнекитайской книгой.

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.

1) ln(16)/ln(2) *10*10 бит

2)ln(4)/ln(2) бит

3)2*800*600*32