Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)
Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы