Даю 20 баллов. решите, пожалуйста ** паскале

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

Даю 20 баллов. решите, пожалуйста на паскале


image

Информатика (21 баллов) | 31 просмотров
Дан 1 ответ
0 голосов

var dlina_A, shirina_B, vysota_H:real;  

begin

writeln('Введите длину основания параллелепипеда:');

read(dlina_A);  

writeln('Введите ширину основания параллелепипеда:');

read(shirina_B);  

writeln('Введите высоту параллелепипеда:');

read(vysota_H);  

writeln('Объем параллелепипеда: ',(dlina_A*shirina_B*vysota_H));

writeln('Площадь боковой поверхности параллелепипеда: ',(2*(dlina_A*vysota_H+shirina_B*vysota_H)));

end.

(606 баллов)