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

Question

Информатика

Лиза

7 октября, 11:31

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

+5

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