Question

Дана длина окружности. Найти площадь круга ограниченного этой окружностью. В качестве значения Pi использовать 3.14. Программа в паскале.

Answer 1

begin
var l:real;
read (l);
writeln ('R = ', l/(2*3.14));
writeln ('S = ',3.14*sqr(l/(2*3.14)));
end.