23. В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите информационный объём (в битак и
байтах) следующего текста в данной кодировке,
Подумать не успев, скажу: ты всех милей;
Подумав, я скажу всё то же.
24. В одной из кодировок Unicode каждый символ кодируется
16 битами. Определите информационный объём (в битах и
байтах) следующего текста в данной кодировке.
И сердце вновь горит и любит
Оттого,
Что не любить оно не может.
25. В одной из кодировок Unicode каждый символ кодируется
16 битами. Определите информационный объём (в битах и
байтах) следующего текста в данной кодировке.
Я памятник себе воздвиг нерукотворный.​

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1