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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 139