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

Question

Информатика

Алдона

29 сентября, 08:59

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

+1

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