Закодируйте в rle(гамма-код), и посмотрите сколько занимает бит 001101000000111000101100001010100000111000101100001010100000111000101100 001010100011100000101101001 0011000100110001001011100100000101000001

Pascalabc.net var   a,d,x,z: real; begin   a: =1.2; d: =3.8; x: =-2;   while x< =2 do begin       if abs(x)> =0.0001 then begin { вот так приходится обходить нули! }           if x> 0.4 then z: =exp(sqrt(x+1))           else z: =cos(a*x)/sin(a*x)+sin(d*x);           writeln('x=',x: 7: 4,', z=',z: 7: 4)       end       else writeln('функция не определена для x=0');       x: =x+0.4   end end. результат выполнения программы x=-2.0000, z= 0.1238 x=-1.6000, z= 0.5659 x=-1.2000, z= 0.8569 x=-0.8000, z=-0.8015 x=-0.4000, z=-2.9195 функция не определена для x=0 x= 0.4000, z= 2.9195 x= 0.8000, z= 3.8253 x= 1.2000, z= 4.4072 x= 1.6000, z= 5.0151 x= 2.0000, z= 5.6522

Program arra; const  m=20; var b: array[1..m] of integer; i,j,k: integer; begin randomize; for i: =1 to m do begin  b[i]: = random(101);   end;     write('массив до сортировки: ');   for i: =1 to m do begin   write(b[i]);   write(' ');   end;   writeln; for i : = 1 to m-1 do        for j : = 1 to m-i do            if b[j] < b[j+1] then begin                  k : = b[j];                 b[j] : = b[j+1];                 b[j+1] : = k            end;             write('массив после сортировки: ');             for i: =1 to m do begin  write(b[i]);   write(' ');   end;   end.