Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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