Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга

Сделать нужно в программе Free Pascal

Question

Информатика

Милан

10 марта, 06:43

Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга

Сделать нужно в программе Free Pascal

+5

Ответы (1)

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

Антиох · Answer 1

Var

r, p, s:real;

begin

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

read (r) ;

p:=2*pi*r;

s:=pi*sqr (r) ;

writeln ('Длина окружности L = ', p:0:3) ;

writeln ('Площадь круга S = ', s:0:3) ;

end.

Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь кругаСделать нужно в программе Free Pascal

Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга

Сделать нужно в программе Free Pascal