Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
<span>End Sub</span>
пирамида.................
Таблица с расчетом начальных шагов цикла - в прилагаемом файле.
Из таблицы видно, что начиная с 6-го шага цикла действия будут повторяться, следовательно конечное значение переменной с будет равно 20+95*3 = 305.
Ну например ЖИРНЫЙ ШРИФТ , <u>Текст с подчёркиванием, </u><u /> <em>наклонный текст </em>