Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Написать программу вычисления полной площади и объёма параллелепипеда,помогите пожалуйста

Ответ оставил Гость

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.