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

Question

Информатика

Гошуня

30 мая, 11:07

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

+2

Ответы (1)

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

Трифон · Answer 1

Var

a, s, v:integer;

begin

writeln ('введите сторону куба') ;

readln (a) ;

s:=6*a*a;

v:=a*a*a;

writeln ('объем равен ', v) ;

writeln ('площадь', s) ;

readln;

end.