Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Module VBModule
Sub Main()
Dim n As Integer = CInt(Console.ReadLine())
Dim ndigits As Integer = 0
While True
Console.ReadLine()
n += n
ndigits += 1
If n = 0 Then Exit While
End While
Console.WriteLine(n / ndigits)
Console.ReadKey()
End Sub
End Module
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more