Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ilosc As Integer
        ilosc = TextBox1.Text
        Console.WriteLine(silnia2(ilosc))
    End Sub
Private Function silnia2(n2 As Integer) As Long
        If (n2 + 1) = 0 Or (n2 + 1) = 1 Then
            silnia2 = 1
        ElseIf n2 > 1 Then
            silnia2 = silnia2(n2) * (n2 + 1)
        Else
            Return Nothing
        End If
    End Function
End Class

Function NFact(ByVal n As Byte)
    If n < 2 Then
        NFact = 1
    Else
        NFact = n * NFact(n - 1)
    End If
End Function

        Console.WriteLine(NFact(Var(ilosc)+1))

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы