

    Function dd(ByVal l As Integer) As Integer
        Dim div As Integer, rslt As Integer
        div = 1 : rslt = 0
        Do While (l > 0)
            l = l - div
            div = div + 2
            If l < 0 Then
                rslt = rslt + 0
            Else
                rslt = rslt + 1
            End If
        Loop
        dd = rslt
    End Function


Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 6