Sub z()
n = InputBox("Введите троичное число")
Do
d = d + (n Mod 10) * 3 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d))
d = 0
i = 0
n = InputBox("Введите восьмеричное число")
Do
d = d + (n Mod 10) * 8 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
x = d
Do
t = t & (x Mod 3)
x = x \ 3
Loop Until x = 0
t = StrReverse(t)
MsgBox ("Десятичное: " & d & "; троичное: " & t)
End Sub
Сколько элементов массива больше, чем первый.
Ответ: 4
Тут надо было что-то написать, т.к. пустой ответ система не принимает)
Поскольку размер файла 128 Мб больше чем 32 Мб в 4 раза, то и время его передачи будет больше в 4 раза, составляя 8*4=<u>32 с.</u>