Ответы
Ответ дал:
1
Ответ:
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. Вывести результат
Приложения:
![](https://st.uroker.com/files/d10/d10eefeffbe7e8dd622bab9076501574.png)
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад