var
r,s,l:real;
begin
readln(l);
r := l / (2 * pi);
s := pi * sqr(r);
writeln(s);
end.
Похожие записи/страницы:
- Известна длина окружности. Найти площадь круга, ограниченного этой окружностью - Pascal(Паскаль)
- Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L =…
- Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L =…
- Вычисление длины и площади окружности - Pascal(Паскаль)
- Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D,…
- Дан радиус окружности.Найти длину и площадь круга - Pascal(Паскаль)
- Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том…
- Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R2 - Pascal(Паскаль)