Question

Pascal. Вычислить объем цилиндра, вписанного в правильную шестиугольную призму, у которой каждое ребро равно a.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadReal('Введи длину ребра');

 var v := Pi * a ** 3 / (4 * Tan(Pi / 6));

 Writeln('V = ',v)

end.