Question

Даны длина, ширина и высота прямоугольного параллепипеда, определить объем, площадь поверхности и длину всех рёбер.
Помогите по написанию программы на  Pascal ABC

Answer 1

var
  a, b, h, V, S, L: real;

begin
  Write('Задайте через пробел длину, ширину и высоту параллелепипеда: ');
  Readln(a, b, h);
  V := a * b * h;
  S := 2 * (a * b + a * h + b * h);
  L := 4 * (a + b + h);
  Writeln('V=', V:0:4, ', S=', S:0:4, ', L=', L:0:4)
end.

Тестовое решение:
Задайте через пробел длину, ширину и высоту параллелепипеда: 3 4.5 6.7
V=90.4500, S=127.5000, L=56.8000

Answer 2

Точно-точно))

Answer 3

Можете вручную проверить