Помогите решить задачу по паскалю, Вот задача: Известна длина окружности "с" (с=2 пR). Найти площать окружности "с"с данным радиусом. с=2 пR R=с/2 п S=пR во 2 степени.

Question

Трифилий

4 сентября, 21:22

+1

Ответы (1)

Знаете ответ на вопрос?

Ульяныч · Answer 1

var

c, r, s:real;

begin

write ('dlina okruznosti=') ;

readln (c) ;

r:=c / (2*pi) ;

s:=pi*sqr (r) ;

writeln ('ploshad=', s)

end.