Question

Выполнить в Паскале.  Дана длина ребра куба. Найти S грани, площадь полной поверхности и V этого куба

Answer 1

program Program1;
var S1, S2, V, a: real;
begin
write('Введите длину ребра куба: ');
read(a);
S1 := a * a;
S2 := (a * a) * 6;
V := a * a * a;
writeln('Площадь одной грани куба (S) = ', S1);
writeln('Площадь полной поверхности куба = ', S2);
writeln('Объем куба (V) = ', V);
end.