решить логические уравнения по информатике.

91
- в двоичную
 Делим число на 2 и выписываем остатки
91 = 45·2 + 1
45 = 22·2 + 1
22 = 11·2 + 0
11 = 5·2 + 1
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 1011011

 

- в восьмеричную

Делим число на 8 и выписываем остатки
91 = 11·8 + 3
11 = 1·8 + 3
Последний множитель перед 8 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 133

 

- в шестнадцатиричную

Делим число на 16 и выписываем остатки
91 = 5·16 + 11 (11 записывается как B)
Последний множитель перед 16 равный 5 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 5B

52

- в двоичную

Делим число на 2 и выписываем остатки
52 = 26·2 + 0
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + 1
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 110100

- в восьмеричную

Делим число на 8 и выписываем остатки
52 = 6·8 + 4
Последний множитель перед 8 равный 6 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 64

- в шестнадцатиричную

Делим число на 16 и выписываем остатки
52 = 3·16 + 4
Последний множитель перед 16 равный 3 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 34

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()