Sub Zadanie()
n = CInt(InputBox("n ="))
y = 1
for i = 1 to n
y = y * (2 * i - 1)
next
MsgBox y
End Sub
56 (в 16с/с) = 0101 0110 (в 2с/с) = 010 010 110 (в 2с/с) = 226 (в 8с/с)
Как я думаю значение величины: км, м, см, мм, дм, литры, миллилитры,кг,гр.
текстовые данные-единица измерения: м(длинна), с(время секунда).
Помогла чем смогла