Помогите с написание программы вычисления объёма,площади поверхности,длины рёбер прямоугольного параллепипеда на языке Паскаль (всё в одной программе пожалуйста)
Помогите с написание программы вычисления объёма,площади поверхности,длины рёбер прямоугольного параллепипеда на языке Паскаль (всё в одной программе пожалуйста)
Гость
Ответ(ы) на вопрос:
ГостьСорян, если не правильно понял условие задачи
program Parallepiped;
var a,b,c,v,s:real;
begin
writeln('Введите длину рёбер параллепипеда ');
read(a,b,c);
v:=a*b*c;
s:=2*(a*c+c*b+a*b);
write('Площадь поверхности = ',s,', а объём = ',v);
end.
Не нашли ответ?
Похожие вопросы