Предмет: Информатика,
автор: deadpool338
помогите с написание программы вычисления объёма,площади поверхности,длины рёбер прямоугольного параллепипеда на языке Паскаль (всё в одной программе пожалуйста)
Ответы
Автор ответа:
0
Сорян, если не правильно понял условие задачи
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.
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.
Похожие вопросы
Предмет: Математика,
автор: german996
Предмет: Математика,
автор: syabvey
Предмет: Математика,
автор: krfjsk
Предмет: Литература,
автор: zubarev1
Предмет: Математика,
автор: Автоботовна