Помогите, надо написать программу вычисляющаю обьем куба, длинну всех его ребер, площадь поверхности

Question

Информатика

Павла

27 апреля, 06:44

Помогите, надо написать программу вычисляющаю обьем куба, длинну всех его ребер, площадь поверхности

+5

Ответы (1)

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

Галатея · Answer 1

Program kub;

var a, rez:real;

begin

readln (a) ;

rez:=a*a*a; writeln ('Объем = ', rez) ;

rez: = (a * sqrt (rez)) * 12; writeln ('Длина всех ребер = ', rez) ;

rez:=6*sqr (a) ; writeln ('Площадь поверхности = ', rez) ;

end.