1. Немного геометрии. Если забыли как найти площадь круга через длину окружности, то можно вывести самостоятельно: P=2*Pi*R, S=Pi*R² значит S=P²/(4*Pi), где P - длина окружности.
2. Код программы:
var p:real; begin readln(p); writeln('Площадь круга: ',p*p/(4*Pi)); end.
P=2*Pi*R, S=Pi*R² значит S=P²/(4*Pi), где P - длина окружности.
2. Код программы:
var p:real;
begin
readln(p);
writeln('Площадь круга: ',p*p/(4*Pi));
end.