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

Question

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

Comments

У Вас проблемы с русским языком? Тогда на родном пишите... поймем

---

Извини, но не в этом дело.

---

Если "ну программа", то так и пишите: "Написать программу..."

---

ок

---

Просто непонятен объем задания

---

Ну извини, как учитель сказал так и написал

---

Даны длина, ширина и высота прямоугольного параллепипеда, определить объем, площадь поверхности и длину всех рёбер. Это всё что он сказал

---

В это верю. Но сказать "через Паскаль" он точно не мог. "На Паскале" наверно. Но это не сильно важно. Длину всех ребер - что, сумму длин? Длины ребер и так известны - длина, ширина и высота.

---

Да не знаю я, всё что знал только что написал.

---

Ну получается что сумму длин

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

Comments

спасибо большое

---

точно правильно?

---

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

---

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

---

А спасибо выражается кнопочкой. Звездочки - размер "спасибо"