Написать программу вычисления полной площади и объёма параллелепипеда,помогите пожалуйста
Написать программу вычисления полной площади и объёма параллелепипеда,помогите пожалуйста
Гость
Ответ(ы) на вопрос:
ГостьVar
A,B,C:real;
Begin
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
Write('Высота = ');ReadLn(C);
WriteLn('Площадь полной поверхности = ',2*(A*B+B*C+C*A));
WriteLn('Объём = ',A*B*C)
End.
Не нашли ответ?
Похожие вопросы