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

150

296

Посмотреть ответы 3

Ответы на вопрос:

СоняКот2000

Информатика

4,8(56 оценок)

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.

Zcnayper

Информатика

4,7(29 оценок)

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.