Question

Помогите пожалуйста.Задача: Дана площадь круга. Определить длину окружности.

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу. Для необходимых вычислений в Паскале есть значение числа π обозначенное как pi.

Program test3;

Var R : real; // радиус

S : real; // площадь круга

S : real; // площадь круга

Begin

Readln (___);
___:=___ (S / pi);
___:= 2___pi
___;

Writeln (‘Ответ: ’,___);

Answer 1

Ответ:

Program test3;

Var  

R : real; // радиус

S : real; // площадь круга

L : real; // Длина окружности

Begin

Readln (S);

R:=sqrt(S/pi);

L:=2*pi*R;

writeln(L);

readln(L)

end.