Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. Visual...

Question

Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. Visual basic

Answer 1

Module Module1
    Dim L As Double
    Const Pi = 3.1415926535897931
    Sub Main()
        Console.Write("L = ")
        L = Double.Parse(Console.ReadLine)
        L = L / (2 * Pi)
        Console.WriteLine("S = " + (Pi * L * L).ToString)
        Console.ReadKey()
    End Sub
End Module


Пример работы программы:

L = 75
S = 447,623277445956