Question

Пожалуйста, помогите! Напишите программный код с помощью Pascal. Задан радиус окружности. Найдите площадь и длину
C=2Пr (П=3.14) - длина окружности
S=Пr^2 - площадь

Answer 1

var r:real;

begin

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

read(r);

writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);

writeln ('Длина окружности равна: ', 2*3.14*r:0:3);

end.