Дан радиус круга. Найти площадь круга и длину.

ПаскальАВС. Нет

var r, s, k:real;

begin

write ('Введите радиус: ') ;

readln (r) ;

s:=pi*r*r;

k:=2*pi*r;

writeln ('Площадь круга ', s) ;

writeln ('Длина окружности ', k) ;

end.

Окружность это геометрическое место точек плоскости, равноудалённых от одной её точки. Равные отрезки, соединяющие центр с точками окружности, называются радиусами. Круг это часть плоскости, лежащая внутри окружности. Площадь круга равна произведению полуокружности на радиус:

S=πr2