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

Вопрос пользователя:

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

Илюха отвечает:

Прога на Паскале

 

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.

Добавить свой ответ