Найти произведение всех целых чисел заданного диапазона.Опишите функцию:function CalcProizv(Nachalo, Konec: integer): longint;

Предыдущий
вопрос Следующий
вопрос

function CalcProizv(Nachalo, Konec: integer): longint;
var
i: integer;
proizv: longint;
begin
proizv := 1;
if Nachalo < Konec then
begin
for i := Nachalo to Konec do
begin
proizv := proizv * i;
end;
end
else
begin
for i := Konec to Nachalo do
begin
proizv := proizv * i;
end;
end;
CalcProizv := proizv;
end;

Эта функция CalcProizv принимает два целых числа как параметры - Nachalo (начало диапазона) и Konec (конец диапазона) и возвращает произведение всех целых чисел в этом диапазоне.

Функция начинает с инициализации переменной proizv с единицы. Затем в зависимости от того, какое число больше, начало или конец диапазона, функция использует цикл for для перемножения всех чисел в диапазоне и сохранения результата в proizv.

Наконец, функция возвращает произведение всех чисел в диапазоне.

Вызов функции:

result := CalcProizv(2, 5); // вернет произведение всех чисел от 2 до 5