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

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

Program test3;

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

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

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

Begin

Readln (...);

... := ... (S / pi);

... := 2... pi ...;

Writeln (‘ответ: ’, ...);

End.

Spin4ik Spin4ik    1   22.04.2020 23:58    62

Ответы
zFast88 zFast88  13.10.2020 17:33

Program test3;

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

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

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

Begin

Readln (S);

R:= sqrt(S / pi);

L:= 2*pi*R;

Writeln ('ответ: ',L );

End.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Куйтвой Куйтвой  13.10.2020 17:33

Program test3;

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

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

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

Begin

Readln (S);

R:=sqrt(S / pi)

L:=2*pi*R;

Wrinteln ('ответ: ',L);

End

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика