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

Question

Информатика

Натоха

22 ноября, 19:56

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

+4

Ответы (1)

Знаете ответ на вопрос?

Леоныч · 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