Помогите по поскалю, ПОЖАЛУЙСТА!11Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R, S=pi*R
Помогите по поскалю, ПОЖАЛУЙСТА!11
Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R, S=pi*R
Гость
Ответ(ы) на вопрос:
Гостьvar a :real;
begin
read (a);
a:=a/3.14;
a:=sqrt(a);
writeln (a*3.14*2);
end.
// S=pi*R*R;
Гостьvar s,l,r: real;
begin write('Введите площадь круга S: ');
readln(s);
r:=sqrt(s/Pi);
l:=2*Pi*r;
writeln('Длина окружности равна ',l);
end.
Не нашли ответ?
Похожие вопросы