Задана окружность радиуса 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.
Не нашли ответ?
Похожие вопросы