Question

Программа для паскаля

Известна площадь окружности S

 Определить длину окружности.

Answer 1

Program Program1;
Var
s,c:real;
begin
write('Введите площадь окружности: ');
Readln(s);
c:=2*SQRT(PI*s);
writeln('Длина окружности равна ', c);
end.