borisss

Module Module1

    Sub Main()
        'объявление переменных
        Dim N As Integer
        Dim k As Integer
        Dim m As Integer
        Dim n As Integer
        Dim S As Single
        Dim y As Single
        ' инициализация переменных N и S
        N = 20
        S = 0
        y = 0
        'цикл для нахождения суммы ряда
        For k = 1 To N
            S = S * ((Sqr(k) + m) / (k ^ (4 / 5) + m ^ 2))
        Next k
        y = (S ^ 3 + 0.01 * n)
        'вывод суммы ряда на экран
        MsgBox("сумма ряда S = " & S)
        MsgBox("y = " & y)
    End Sub

End Module