Вкорзине лежат 6 красных и 10 синих кубиков. какое количество информации несут сообщения о том, что достали красный или желтый кубик?

Поскольку количество красных и синих кубиков неодинаково, вероятность достать кубик того или иного цвета различна. Выбираем формулу Шеннона.

Dim s As Integer, sum As Single

s = 44

If s Mod 2 = 1 Then

sum = Sin(s * 3.14 / 180) + Cos(s * 3.14 / 180)

Else

sum = Abs(s)

End If

MsgBox sum

'задач 3

Dim s As Integer, sum As Integer, i As Integer, j As Integer

  Do While i < 21

  sum = sum + j

Cells(i + 1, 1) = i

Cells(i + 1, 2) = j

Cells(i + 1, 3) = sum

i = i + 1

j = j + 3

Loop

'задач 4

Dim x As Integer, sum As Single, i As Integer, n As Integer

x = 30

n = CInt(InputBox("Введите n"))

For i = 1 To n

sum = sum + Sin(i * x * 3.14 / 180)

Next i

MsgBox sum

Объяснение:

1)При перекодировке сообщения из 8-битного кода в 16-битную кодировку UNICODE его объём увеличился на 2048 байтов.

2)Логин занимает объём памяти равной  = 20 * 5 бит = 100 бит (5 бит, т.к )

Аналогично с паролем, он занимает 15 * 4 бита = 60 бит памяти

Для хранения результатов выбора пола достаточно одного бита ( всего два возможных варианта() - ж или м,).

Итого одна учетная запись занимает: 100 + 60 +1 = 161 бит памяти.

Но в условии сказано, что она кодируется минимально возможным целым! кол-вом байт, значит: 161/8 = 20,125 байт, округляем в большую сторону - 21 байт.

Всего 30 записей: 21 * 30 = 630 байт.

Значит верный ответ под номером 3)

2)Т.к. на каждую из восьми позиций пароля можно поставить любую цифру из девяти (1,2,3,...,9 - всего 9 цифр), получаем количество комбинаций пароля  9^8=387420489

3) непомню(