Question

Написать программу по информатике объема параллелепипеда

Answer 1

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.

Answer 2

program E8;

var a, b, c, v: real;

begin

writeln('введите значения длины, ширины,высоты');

readln(a,b,c);

v:=a*b*c;

writeln('v=', v:4:2);

readln;

end.