Обьем сообщения составил 32 кбайта. на одной странице помещается 16 строк по 64 символа в каждой. число страниц которое, занимает сообщение равно 64. алфавит, с которого записано сообщение символ.

В  сообщении 2^16 символов, значит каждый символ занимает полбайта или 4 бита 4  бита  кодируют 16 сиволов ответ  16

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)

Vb.       dim a() as integer         randomize()         dim k as integer         dim i as integer         i = rnd() * 100 + 1         redim a(i)         for k = 0 to i             a(k) = rnd() * -1000 + 500         next         dim inta, intb as integer         inta = inputbox("введите начало интервала")         intb = inputbox("введите конец интервала")         dim r, q, s as integer         r = 0         for i = 1 to ubound(a)             if a(i) < a(r) then r = i             if a(i) mod 2 < > 0 then q = q + a(i) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             if a(i) > inta and a(i) < intb then s = s + 1         next         msgbox("t=r/q+1+s = " & a(r) / q + 1 + s)