Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти
его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).
В PascalABC

Ответ оставил Гость

Var a,b,c:integer;
v,s:real;
begin
writeln(Введите стороны треугольника);
read(a,b,c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln(Объем параллелепипеда равен ,v, при площади поверхности равной ,s);
end.