Вычислить Сумму элементов последовательности а один, а два , ... , аn (n меньше или равно двадцать), удовлетворяющих неравенству икс меньше п.

Программный код.

Sub Zadanie_13_2()Dim i As Integer, n As Integer, p As IntegerRange("f10:g100").ClearContentsCells(10, 6) = "a()"Don = Val(InputBox("Введите количество n=20 ", "Ввод данных", 10))p = Val(InputBox("Введите значени...