Описать значение каждой строки в программном коде VBA. Нарисовать блок-схему к программе. Dim a(5)
Dim i As Integer
Private Sub Command1 Click()
k=0
For i = 1 To 5
a(i) = InputBox("Введите элементы массива" + a(i))
List1 Additem "a(" + Str(i) + ") " + Str(a(i))
Next i
For i = 1 To 5
If a(i) Mod 3 = 0 Then k = k + 1
Next i
List3. AddItem "k=" + Str(k)
End Sub

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Открываем "Мохнатую азбуку" Бориса Заходера и читаем названия животных на все буквы алфавита.

a. Слово ёж можно зашифровать рисунками жирафа и зебры.

b. Алгоритм расшифровки.
1) смотрим картинку животного.
2) берём его первую букву.
3) берём предыдущую букву.

c. Расшифровать сообщение, которого нет, очень трудно.

d. Нет животных на такие буквы:
Й, Ь, Ы, Ъ, Ю.
Интересная ситуация с буквой Ю. Вот стихи:
Это Южный Ктототам.
Я его придумал сам.
Я вам честно говорю:
Зверя нет на букву Ю!
В одной книге я видел иллюстрацию к этой букве. В качестве Южного Ктототама неожиданно был нарисован... негр.
Таким образом, нельзя закодировать буквы: И, Щ, Ь, Ы, Э.