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

Question

Информатика

Оза

6 ноября, 11:41

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

+4

Ответы (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.