Помогите по поскалю, ПОЖАЛУЙСТА!11Дана площадь круга S. Найти длину окружности, учитывая...

Question

Помогите по поскалю, ПОЖАЛУЙСТА!11
Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R, S=pi*R

Comments

R чему равно?

---

не известно

---

у тебя не правильная формула площади

---

действительно

Answer 1

Var s,l,r: real; 
 begin  write('Введите площадь круга S: '); 
 readln(s);
  r:=sqrt(s/Pi);
  l:=2*Pi*r; 
 writeln('Длина окружности равна ',l);
end.

Comments

а R где?:D

---

подставили S в 1 формулу

---

переделал как надо

Answer 2

var a :real;
begin
   read (a);
   a:=a/3.14;
   a:=sqrt(a);
   writeln (a*3.14*2);
end.
// S=pi*R*R;

Comments

а можно другой вариант?:с А то такому точно не поверят:((