Sub swap(ByRef A, ByRef B) If A > B Then C = A A = B B = C End IfEnd Sub
Sub test() A = 12.5 B = 15 Call swap(A, B) MsgBox "A= " + Str(A) MsgBox "B= " + Str(B) A = 100 B = 12 Call swap(A, B) MsgBox "A= " + Str(A) MsgBox "B= " + Str(B)<span> </span>End Sub
1) N1 = 2^i1
N1 = 32
32 = 2^i1
i1 = 5 бит - глубина кодирования одного символа при использовании алфавита в 32 символа
2) N2 = 2^i2
N2 = 64 символа
64 = 2^i2
i2 = 6 бит - глубина кодирования одного символа во втором алфавите
3) Количество символов одинаково, поэтому:
i2 / i1 = 6 бит / 5 бит = 1,2 раза - информационный объем второго текста был больше первого
Ответ: отличается в 1,2 раза
210, 201, 120, 102. Если можно повторять цифры то: 111, 221, 212... И т. д