Исходный код:
program par;
var v, a, b, c: integer;
function volume (a, b, c: integer): integer;
begin
volume := a * b * c
end;
begin
Readln(a);
Readln(b);
Readln(c);
v := volume(a, b, c);
Writeln(v);
end.
Примечание:
В двух скриншотах исходный код в редакторе и результат выполнения программы. В качестве объяснения скажу, что мы объявили функцию volume которая считает объем по переданным в нее измерениям параллелепипеда и возвращает значение. В основной части программы мы вводим измерения и передаем их в функцию, потом выводим результат. Переменная v для хранения результата функции.
z=9.90625
Объяснение:
Начало
х=21
z=1, i=0
z= (1+21/2)/2
z=5.75
i=0+1=1
i<4
z= 5.75 i=1
z= (5.75+21/2)/2
z=8.125
i=1+1=2
i<4
z=8.125 i=2
z=(8.125+21/2)/2
z=9.3125
i=2+1=3
i<4
z=9.3125 i=3
z=(9.3125+21/2)/2
z=9.90625
i=3+1=4
i=4
z=9.90625