1) 16 = 2⁴
2) 4 * 1024 = 4096 бит в секторе
3) 9 * 4096 = 36864 бит в дорожке
4) 180 * 8 * 1024 = 1474560 бит на всём диске
5) 1474560 / 36864 = 40 дорожек
Если перевести из 16ной системы счисления в 10ную, то 2B16=11030, 13435=78901, 3478=13432, FE16=65046. Т.е. четные все, кроме 13435=78901
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
Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле