profile
Опубликовано 6 лет назад по предмету Информатика от romantisk

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

  1. Ответ
    Ответ дан brokzeppelin

    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.

Самые новые вопросы