Сообщение, записанное буквами из 128-символьного алфавита, содержит 100 символов. какой объём информации оно несёт?

N=128 k=100 n=2 в степени i i=7 i=k*i i=100*7=700 бит ответ: 700 бит

  private sub form1_load(sender as object, e as eventargs) handles mybase.load   dim array() as byte = {102, 103, 105, 105, 104, 108, 101, 109, 111, 113}   gnomesort(array, true)   end sub   ' // алгоритм гномьей сортировки   sub gnomesort(byref array() as byte, byval toupper as boolean)   dim tui as integer, index as integer, last as integer   if (toupper = true) then tui = 1 else tui = -1   index = 1   last = 2   do     if ((array(index) * tui) < (array(index - 1) * tui)) then     swap(array(index), array(index - 1))     index -= 1     if (index = 0) then       index = last       last += 1     end if     else     index = last     last += 1     end if   loop while (index < (ubound(array) + 1))   ' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535   end sub   ' // функция обмена двух переменных   private function swap(byref ic_a as integer, byref ic_b as integer) as boolean   dim dump as integer = ic_a   ic_a = ic_b   ic_b = dump   return true   end function

Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу.   легкая программа, но замудренная..    пример: case a of           01.02.98  : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');           02.02.98  : writeln (2 февраля тысяча девятьсот девяносто восьмой год');         тут дата : writeln ('тут что выводить');   итд           end;