Найти произведение элементов последовательности - VB

Формулировка задачи:

Найти произведение: (1 + 1 /1^2)(1 + 1 / 2^2)...(1 + 1 / n^2). Подскажите где ошибка

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i, p, n As Single
        n = TextBox1.Text
        p = 1
        For i = 1 To n Step 1
            p = p * (1 + (1 / (n ^ 2)))
        Next 
        TextBox2.Text = p
    End Sub

Решение задачи: «Найти произведение элементов последовательности»

textual
                            Листинг программы 
                        
                            Dim i As Single, p As Single, n As Single

Оцени полезность:

6 голосов , оценка 4.333 из 5

Похожие ответы