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

Question

Информатика

Вила

17 ноября, 06:32

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

+3

Ответы (1)

Знаете ответ на вопрос?

Сабина · 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.