Проводится две лотереи: «6 из 36» и «5 из 64». сообщение о результатах какой из лотерей несет больше информации?

ответ: сообщение о результатах лотереи "6 из 36" несёт больше информации.

Объяснение:

Используем формулы на мощность алфавита:

Где i - вес символа, а N - мощность алфавита (количество букв в нём).

Узнаем информационный вес символа каждой лотереи:

Первая

Нужно взять минимально возможное целое i, чтобы выражение было равно или больше мощности алфавита.

2⁶ = 64, значит один символ весит 6 бит.

6 × 6 = 36 бит - информационный объём первой лотереи.

Вторая

2⁶ = 64 бита, значит один символ весит 6 бит.

6 × 5 = 30 бит - информационный объём второй лотереи.

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль

program Help;   #Заголовок

var  #Раздел с переменными

a, b ,c, summ : real;   #Входные переменные и по итогу их сумма, вещественные

begin  #Думаю понятно

   summ := 0;   #Инициализация summ, ибо статическая типизация

   writeln('Enter nums');   #Программа попросит ввести числа

   readln(a);  #Считывание

   readln(b);  #Считывание

   readln(c);  #Считывание

   

   if a > 0 then summ += a;  #Если переменная а больше нуля, прибавляем её к итоговой переменной

   if b > 0 then summ += b;  #Аналогично

   if c > 0 then summ += c;   #Аналогично

   

   write(summ);   #Выводим переменную summ на экран

       

end.