Question

В Pascal ABC. Найдите радиус окружности если известна площадь окружности.

Answer 1

$\displaystyle S= \pi R^2 \to R= \sqrt{ \frac{S}{\pi} }$

var
  s:real;
begin
  Write('Площадь окружности: '); Read(s);
  Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.