Составьте программу вычисления объема, площади полной поверхности,сумму ребер прямого параллелепипеда

Question

Составьте программу вычисления объема, площади полной поверхности,сумму ребер прямого параллелепипеда

Экономика

Гость

Ответ(ы) на вопрос:

Гость

var a,b,c:real; Begin read(a,b,c); writeln('V = ', a*b*c); writeln('S = ', 2*(a*b+b*c+a*c)); End.

Accepted Answer

Прога на Паскале Var a,b,c:real; Begin Read(a,b,c); Write('Объем=',a*b*c,' ','Площадь поверхности=',2*(a*b+a*c+b*c), ' ','Сумма ребер=', 4*(a+b+c) ); END.