Return n End Function End Module ‘—11—
Module Module1 Sub Main()
Dim v As Integer = Console.ReadLine() Dim d As Integer = Console.ReadLine() Dim i As Integer = 1 Dim t As Integer = 0 While (v > 0) v = v - i * d t = t + i
If v > 0 Then t = t + 1 End If i = i + 1 End While
Console.WriteLine(t) End Sub End Module
