Найти произведение чисел в заданном интервале - Free Pascal

Формулировка задачи:

Найти: а) произведение всех целых чисел от 8 до 15; б) произведение всех целых чисел от a до 20 (значение a вводится с клавиату- ры; 1 a 20); в) произведение всех целых чисел от 1 до b (значение b вводится с клавиату- ры; 1 b 20); г) произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).

Решение задачи: «Найти произведение чисел в заданном интервале»

Листинг программы

Function Mul(a,b : Byte) : Longint;
Begin
  If a<=b then Mul:=a*Mul(a+1,b) else Mul:=1;
end;

Объяснение кода листинга программы

В данном коде написана функция Mul, которая принимает два аргумента типа Byte - a и b.

Если a меньше или равно b, то функция вызывает саму себя (рекурсия), передавая в качестве аргументов значения a+1 и b. При этом результат рекурсивного вызова функции присваивается переменной Mul.
Если a больше b, то значение переменной Mul присваивается единице.
После выполнения рекурсивных вызовов функции, значение переменной Mul будет содержать произведение чисел в заданном интервале. Пример использования функции Mul: var a, b: Byte; Mul: Longint; begin a := 1; b := 5; Mul := Mul(a, b); Show(Mul); end; В данном примере функция Mul будет вызвана с аргументами 1 и 5, затем с аргументами 2 и 5, затем с аргументами 3 и 5, и так далее, пока не будет достигнут интервал [5..5]. После чего функция Mul вернет произведение чисел в этом интервале, которое будет выведено на экран.