По поскалю, ! 11 дана площадь круга s. найти длину окружности, учитывая что l=2*pi*r, s=pi*r

ladijka ladijka    2   31.05.2019 23:10    0

Ответы
rukisha1107 rukisha1107  02.07.2020 09:28
var a :real;
begin
   read (a);
   a:=a/3.14;
   a:=sqrt(a);
   writeln (a*3.14*2);
end.
// S=pi*R*R;
ПОКАЗАТЬ ОТВЕТЫ
пллсыео пллсыео  02.07.2020 09:28
Var s,l,r: real; 
 begin  write('Введите площадь круга S: '); 
 readln(s);
  r:=sqrt(s/Pi);
  l:=2*Pi*r; 
 writeln('Длина окружности равна ',l);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика