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

Question

Информатика

Настюля

13 октября, 02:08

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

+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.