Даны длина, ширина и высота прямоугольного параллепипеда, определить объем, площадь поверхности и длину всех рёбер.
Помогите по написанию программы на Pascal ABC
Ответы на вопрос
Ответил Аноним
0
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
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
Ответил Аноним
0
Точно-точно))
Ответил Аноним
0
Можете вручную проверить
Новые вопросы
Английский язык,
2 года назад
Математика,
2 года назад
Информатика,
9 лет назад
История,
9 лет назад
Математика,
10 лет назад
Химия,
10 лет назад