Я пытаюсь получить ценность. Поставщик стекла хочет, чтобы программа определяла вес каждого куска стекла.Учитывая площадь и толщину куска стекла, программа должна найти вес в граммах и распечатать.Плотность стекла составляет 2,7 грамма на кубический сантиметр.
Sub Main(ByVal args As String())
Console.WriteLine(vbCrLf + "Unit of volume?(Cubic centimetre) ")
Dim name = Console.ReadLine()
Dim x As Double = 2.7
Dim y As Double
x = y * 2.7
Console.WriteLine(" weight is {0}", y)
Console.Write(vbCrLf + "Press any key to exit... ")
Console.ReadKey(True)