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

2^i = 24

i = 5

ответ. 5 лампочек.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.