посчитайте с программирование в VBA Excel. Нужен код

Shared Sub Main(args As String())

Dim n As Integer = Integer. Parse(Console. ReadLine())

Dim p As Single = 1

Dim i As Integer = 1

While i <= n

Dim a As Single = 2 * i

Dim b As Single = 2 * i + 1

p *= a / b

i += 1

End While

Console. WriteLine(p)

End Sub

Объяснение по стокам:

2. Считать n с консоли

3. p - переменная с результатом

4. i - переменная для цикла

5-10. цикл - основная часть программы

6-7. Числитель и знаменатель со свенно.

8. Умножить результат на новую дробь

9. Увеличить счетчик цикла

11. Вывести результат