Dalune
5 год назад
Работа с паскаль
Составьте программу, высчитывающую объём ( a^3) , площадь поверхности (6a^2) куба. Длина грани куба вводится с клавиатуры.
ОТВЕТЫ
Ипатий
Aug 8, 2019
Var a:real;
begin
write(Введите сторону куба: ); readln(a);
writeln(Объем куба: ,power(a,3));
writeln(Площадь куба куба: ,6*power(a,2));
end.
begin
write(Введите сторону куба: ); readln(a);
writeln(Объем куба: ,power(a,3));
writeln(Площадь куба куба: ,6*power(a,2));
end.
46
Смежные вопросы: