Найти ошибку(ошибки) при вычислении суммы - VBA

функция Написал следующее. Где-то должна быть ошибка(и)

sub cc
m=cells(1,1)
n=cells(2,1)
S=0
for k=1 to 20
S=m*(S+k^(-2))
Next k
y=(s^3+0.01*n)/(S+3)
Cells(3,1)=S
End Sub

textual
                            Листинг программы 
                        
                            S=S+m*k^(-2)

Оцени полезность:

11 голосов , оценка 3.727 из 5

Похожие ответы