Мощность некоторого алфавита 15 символов .все символы кодируются одинаковым минимально возможным количеством битов.каков информационный объем текста из 1024 символов?

N=15   i=4 бит/1сим 1024*4=4096 бит   2^12/2^3=2^9=512 байт   2^12/2^12=0.5 кбайт

1) в расстановке скобок здесь ошибка, в решении показан один из возможных вариантов исправления этой ошибки: f: =not((x< 0) and (y< 0)) or ((z< -2) and d)  ⇒ < 0) and (3< 0)) or < -2) and false)  ⇒  not(true and false) or (true and false)  ⇒ not false or false  ⇒ true or false  ⇒ true 2) здесь тоже в условии что-то не то (z - лишняя переменная получается) и корень из чего извлекать - тоже непонятно var x,a,y: real; begin x: =3; a: =ln(abs(x+1))/ln(10); y: =exp(ln(5)*(1/3))*a*a-3*x*x; writeln('y = ',y); end. результат: y = -26.3801743600581 3) a=5; b=8; c=-2; a< b  ⇒ 5< 8  ⇒ true, a=a+1=5+1=6 a< b  ⇒ 6< 8  ⇒ true, a=a+1=6+1=7 a< b  ⇒ 7< 8  ⇒ true, a=a+1=7+1=8a< b  ⇒ 8< 8  ⇒ false c=c+1=-2+1=-1 ответ:   c=-1 4) setcolor(red); - устанавливается цвет рисования (красный) setfillstyle(1,2); - устанавливается стиль заливки (1  -  заполнение текущим цветом, 2 - зеленый цвет) setbkcolor(15); - устанавливается цвет фона (15-белый;   экран сразу же окрашивается в заданный цвет) circle(200,200,50); - рисуется окружность (центр 200, 200; радиус 50) о какой области спрашивается - непонятно. 5) n- длина строки s  (количество символов в строке) n = 10 (пробела после 'до'  нет)

Program qwr; uses crt; var f : real; i : byte; z,a : array [0..3] of real; begin     for i: =1 to 3 do   begin   write('z[ ',i,']= ');     readln(z[i]);   end;     for i: =1 to 3 do     begin   write('a[ ',i,']= ');     readln(a[i]);   end;     writeln(' ');     writeln('   z[i] |   a[i] |   f   ');     for i: =1 to 3 do     begin     f: =exp(ln(z[i]+a[i])*(3/2));     writeln('   ',z[i]: (3),'   |   ',a[i]: (3),'   | ',f: (3): (2));   end;   writeln(' ||');   end.