Question

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба
паскаль

Answer 1

Var A:real;
Begin
Write('Ребро куба = ');ReadLn(A);
WriteLn('S грани = ',A*A);
WriteLn('S полной поверхности = ',A*A*6);
WriteLn('V куба = ',A*A*A)
End.