Вычеслить и вывести на экран площадь круга и длину окружности зная радиус (задача в Паскаль)

Question

Информатика

Греза

6 января, 14:47

Вычеслить и вывести на экран площадь круга и длину окружности зная радиус (задача в Паскаль)

+5

Ответы (1)

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

Разиэль · Answer 1

program circle;

var S, P, r:real;

const i = Pi;

begin

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

readln (r) ;

S:=i * (r*r) ;

P:=2*i*r;

writeln ('Площадь = ', S,', длина = ', P) ;

end.