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

Question

Информатика

Ванилда

21 марта, 00:14

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

+2

Ответы (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.