Задана окружность радиуса R. Составьте программу для нахождения ее длины и площади ограниченного ею круга.

Question

Информатика

Ироида

14 апреля, 05:46

Задана окружность радиуса R. Составьте программу для нахождения ее длины и площади ограниченного ею круга.

+1

Ответы (1)

Знаешь ответ?

Ефрем · Answer 1

var

r, h, s:real;

begin

Read (r);

h:=2*Pi*r;

s:=2*pi*sqr (r);

Writeln ('Площадь круга: ', S:5:2);

Writeln ('Периметр окружности: ', h:5:2);

end.