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

Question

Информатика

Рэйнальдо

13 февраля, 13:09

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

+1

Ответы (2)

Знаете ответ?

Галымжан · Answer 1

var r:real;

begin

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

read (r) ;

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

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

end.

Халипа · Answer 2

program circle;

var

rad : real;

begin

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

readln (rad) ;

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

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

end.