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

Question

Информатика

Диомид

9 апреля, 10:11

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

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