Question

Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)

Answer 1

Sub ex7()
    m = CInt(InputBox("m="))
    n = CInt(InputBox("n="))
    y = 0#
    For k = 1 To 25
        y = y + k ^ 2 / m + k ^ 3 / 2
    Next k
    z = y * (y - 4) + 0.02 * n
    MsgBox "z=" + CStr(z)
End Sub