НАПИСАТЬ СЛОВЕСНЫЙ АЛГОРИТМ К ПРОГРАММЕ!!!! Private Sub S() Dim A As Integer, S As...

Question

НАПИСАТЬ СЛОВЕСНЫЙ АЛГОРИТМ К ПРОГРАММЕ!!!! Private Sub S() Dim A As Integer, S As Integer A=Val(Cells(2,2).Value) S=0 i=0 n=0 While S S=S+1 i=i+S n=n+1 Cells(n+1, 1).Value=Str(S) Wend Cells(3,2).Value=Str(i) End Sub

Answer 1

Создаётся приватная функция типа void с названием S, в которой объявляются A, S типа int. A присваивается значение 2 строки 2 столбца таблицы Excel, после чего S, i и n приравниваются к нулю. Создаётся цикл (с непонятным условием), в котором к S и n прибавляется 1, к i прибавляется S. После этого к ячейке n+1 строки 1 столбца присваивается значение S, приведённого к строке.  После цикла значению ячейки 3 строки 2 столбца присваивается значение i.