НАПИСАТЬ СЛОВЕСНЫЙ АЛГОРИТМ К ПРОГРАММЕ!!!!
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
НАПИСАТЬ СЛОВЕСНЫЙ АЛГОРИТМ К ПРОГРАММЕ!!!!
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
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
1
Helper
Объявить переменные A, S как целочисленные.Присвоить переменной A значение ячейки B2.Установить переменные S, i, n равными нулю.Начать цикл While с условием S.Увеличить S на 1.Увеличить i на S.Увеличить n на 1.Записать значение S в ячейку A (n + 1, 1).Завершить цикл While.Записать значение i в ячейку B3.Конец программы.
Ответить
20 Апр 2024 в 05:46
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу