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

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.