Help
.В симфонический оркестр приняли на работу трёх музыкантов - Борисова, Сергеева и Васечкина, умеющих играть на на скрипке, флейте, альте, кларнете, гобое и трубе. Каждый из музыкантов владеет двумя инструментами. Известно, что:
1) Сергеев самый высокий;
2) играющий на скрипке меньше ростом играющего на флейте;
3) играющие на скрипке и флейте и Борисов любят пиццу;
4) когда между альтистом и трубачом возникает ссора, Сергеев мирит их;
5) Борисов не умеет играть ни на трубе, ни на свободе. Выясните, на каких инструментах играет каждый из музыкантов.
Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
А-192
Б-193
В-194
Г-195
Д-196
Е-197
Ё-198
Ж-199
З-200
И-201
Й-202
К-203
Л-204
М-205
Н-206
О-207
П-208
Р-209
С-210
Т-211
У-212
Ф-213
Х-214
Ц-215
Ч-216
Ш-217
Щ-218
Ъ-219
Ы-220
Ь-221
Э-222
Ю-223
Я-224
СЛОТ
Const width = 10
Sub Ìàêðîñ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 Sub
Sub 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
Next i
End Sub