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.