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

Вопрос от пользователя: Ироида

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

Ответ: Ефрем

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.