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

Question

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

Answer 1

var
a, b, c, V, S: real;

begin
writeln('Введите размеры прямоугольного параллелепипеда:');
readln(a, b, c); { <-- Вводим размеры }
{ Вычисляем объем параллелепипеда: }
V := a * b * c;
{ Вычисляем площадь поверхности: }
S := 2 * (a * b + b * c + a * c);
writeln('Результат:');
writeln(' V = ', V:0:3);
writeln(' S = ', S:0:2);
readln
end.