длина ребра куба "a"(ввод с клавиатуры) какова площадь его поверхности? каков объём куба? решить через программу pascal ABC
Answers & Comments
БичораПрограмма во вложении. Program qq; var a,S,V:integer; Begin writeln('Введите длину ребра куба:'); read(a); S:=6*a*a; V:=a*a*a; writeln('Площадь поверхности куба=',S); writeln('Объем куба=',V); end.
Answers & Comments
Program qq;
var a,S,V:integer;
Begin
writeln('Введите длину ребра куба:');
read(a);
S:=6*a*a;
V:=a*a*a;
writeln('Площадь поверхности куба=',S);
writeln('Объем куба=',V);
end.