Question

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

Answer 1

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.