Ответы и объяснения

2012-02-24T09:26:30+00:00

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.

2012-02-24T12:33:22+00:00

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.