Баба-яга собирает сундучки-копилки. у каждого сундучка - вопрос №9995302 от marmakmp 20.08.2022 08:45

Question

Информатика: Баба-яга собирает сундучки-копилки. у каждого сундучка есть дырка, куда можно складывать монетки и драгоценные камни, также у каждого сундучка есть ключ, который пролезает в дырку в сундучке. баба-яга заперла сундучки, а ключи по рассеянности положила как раз в эти сундучки: ключи от первого и восьмого сундучка оказались во втором, ключ от пятого в шестом, ключ от девятого в седьмом, ключ от третьего в четвертом, ключ от второго в третьем, ключ от десятого в десятом, ключ от четвертого в первом,

marmakmp · Answer

Const heigth = 10Const width = 10Sub Ìàêðîñ1()    Dim Sum(heigth - 1, width - 1)    Dim Product(heigth - 1, width - 1)        For i = 0 To heigth - 1        For j = 0 To width - 1            Sum(i, j) = i + j            Product(i, j) = i * j        Next j    Next i        Call Show(Sum, 0, 0)    Call Show(Product, 0, 12)End SubSub Show(ByRef m, dx, dy)    For i = 0 To heigth - 1        For j = 0 To width - 1            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))        Next j   ...