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

Question

Информатика

Данда

2 октября, 00:14

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

+5

Ответы (2)

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

Звеномира · Answer 1

program circle;

var

rad : real;

begin

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

readln (rad) ;

writeln (' Длина окружности : ', PI*2*rad, '.') ;

writeln (' Площадь окружности : ', PI*rad*rad, '.') ;

end.

Епасима · Answer 2

var r:real;

begin

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

read (r) ;

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

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

end.