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

0 голосов
61 просмотров

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


Информатика (14 баллов) | 61 просмотров
0

площади поверхности?

0

да..

Дан 1 ответ
0 голосов

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.