Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

а R где?:D

Answer 5

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

Answer 6

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