Разделить число в двоичной по три цифры начиная с правого разряда.
Из 1010010 получится 1 010 010.
Потом заменяешь каждую тройку соответствующим числом восьмиричной системы.
0 - 000
1 - 001
2 - 010
3 - 011
4 - 100
5 - 101
6 - 110
7 - 111
Из числа 1010010 получаем число 122.
Ботинки схожи с друг другом больше не зНАЮ!!!!!!!
Sub aaa()
Randomize Timer
n = InputBox("Количество строк (колонок)")
ReDim a(1 To n, 1 To n) As Double
For i = 1 To n
a(i, i) = i * (i + 1)
Next i
Cells.Clear
Dim r As Range
Set r = Range(Cells(2, 2), Cells(n + 1, n + 1))
r = a
r.Borders.Weight = xlThin
r.BorderAround Weight:=xlMedium
End Sub
режим дня трудоголика
проснулся- позавтракал- на работу-домой-поужинал и спать
повторить nраз до самой смерти