Question

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

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.