Вопрос пользователя:
написать программу по информатике объема параллелепипеда
Илюха отвечает:
program _1_2;
uses crt;
var
dlina, shirina, vysota:real;
begin
ClrScr;
TextColor(14);
Writeln(‘Вычисление объёма параллелепипеда.’);
Writeln(‘Введите исходные данные:’);
write(‘Длина (см) -> ‘);
readln(dlina);
write(‘Ширина (см) -> ‘);
readln(shirina);
write(‘Высота -> ‘);
readln(vysota);
writeln(‘Объём: ‘,(dlina*shirina*vysota):7:2);
Repeat
Until KeyPressed;
end.