Question

Операторы цикла. Язык программирования VBA Дано натуральное число n. Вычислить:

Answer 1

Sub Zadanie()
    n = CInt(InputBox("n ="))
    y = 1

    for i = 1 to n
        y = y * (2 * i - 1)
    next

    MsgBox y
End Sub