Question

Розв'язати задачу №6 з прикріпленого файлу з кодом розв'язання мова паскаль

Answer 1

Відповідь:

6. Текст програми на мові програмування Pascal(результат виконання програми на фото):

program parallelepiped;

var

 a, b, c, V, S: real;

begin

 writeln('Введіть довжини ребер прямокутного паралелепіпеда:');

 readln(a, b, c);

 V := a*b*c;

 S := 2*(a*b + b*c + a*c);

 writeln('Об''єм паралелепіпеда = ', V:0:2);

 writeln('Площа поверхні паралелепіпеда = ', S:0:2);

 readln;

end.