Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба паскаль
Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба
паскаль
Ответ(ы) на вопрос:
Var A:real;
Begin
Write('Ребро куба = ');ReadLn(A);
WriteLn('S грани = ',A*A);
WriteLn('S полной поверхности = ',A*A*6);
WriteLn('V куба = ',A*A*A)
End.
Не нашли ответ?
Похожие вопросы