Предмет: Информатика,
автор: эльмирка1996пятница
написать программу по информатике объема параллелепипеда
Ответы
Автор ответа:
0
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.
Автор ответа:
0
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: novikova18082008
Предмет: Математика,
автор: lyapos2077
Предмет: Биология,
автор: alihanshalabaev228
Предмет: Математика,
автор: darya31