Переведите число 21, 8 10 в двоичную, восьмеричную и шестнадцатиричную сс. дробную часть округлите до второго знака после запятой

21,8(10) = 10101.11(2)

21,8(10) = 25.63(8)

21,8(10) = 15.cc(16)

1) в кои-8 каждый символ кодируется 1 байтом. 32*40*48 байт = 32*4*5*8*6 = 32*32*5*6 = 30*1024 байт =  30 кбайт. информационный объем тоже  равен 30 кбайт =  30*8 = 240 кбит. 2) в unicode каждый символ кодируется 2 байтами. во фразе 60 знаков, включая пробелы, точки и запятые. объем этого сообщения 60*2 = 120 байт. 3)  в unicode каждый символ кодируется 2 байтами. информационный объем 16*30*32*2 = 32*30*32 = 30*1024 = 30 кбайт = 30*8 = 240 кбит. размер статьи 30 кбайт. 4) размер статьи 64*52*52 = 64*4*13*4*13 = 256*169 знаков. если его информационный объем равен 169 кбайт, то каждый  1 кбайт = 1024 байт  =  256 знаков. 1 знак = 1024/256 = 4 байта = 4*8 = 32 бита. 5) информационный объем равен  128 кбайт. 1 знак в unicode = 2 байта. в книге 128*1024/2 = 64*1024 = 2^6*2^10 = 2^16 = 65536 знаков. 6) 2048 символов = 1/512 мбайта = 1024/512 = 2 кбайта = 2048 байт. каждый символ кодируется 1 байтом = 8 бит. в алфавите 2^8 = 256 символов. 7) в 64-символьном алфавите каждый символ кодируется 6 битами, потому что 64 = 2^6. 20 символов = 20*6 = 120 бит = 120/8 = 15 байт.

Var a: array[0..9] of integer; i,n,nol,otr,nochet: integer; chet: real; begin nochet: =1; for i: =0 to 9 do begin writeln('введите ',i+1,' число'); readln(n); a[i]: =n; end; for i: =0 to 9 do begin if a[i]=0 then nol: =nol+1; if a[i]> -4 then otr: =otr+1; if i mod 2=0 then chet: =chet+1 else nochet: =nochet*a[i]; end; chet: =chet/2; writeln('кол-во нулевых элементов: ',nol); writeln('сумма элементов, больше -4: ',otr); writeln('полу-сумма элементов с чётными индексами: ', chet); writeln('произведение нечётных элементов: ',chet); end.