Написать программу вычисления объема параллелепипеда.
Вычисление объема
параллелепипеда
Введите исходные данные:
Длина (см): 9
Ширина (см): 7.5
Высота (см): 5
Объем: 337.5 кубических единиц
print(Вычисление :)
**)
print(данные)
a=float(input(Длина (см): ))
b= ..
c=..
print(a*b*с, куб.ед.)
uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.