Создайте модуль для вычисления факториала некоторого числа. В основной программе, не объявляя никаких переменных, осуществите вывод на экран факториалов чисел a и b.

Значения чисел a и b в условии не указаны, поэтому их можно задать как константы. Пример на Pascal: основная программа не объявляет переменных и вызывает функцию из модуля.

Модуль FactorialModule:
unit FactorialModule;
interface
function Fact(n: Integer): Int64;
implementation
function Fact(n: Integer): Int64;
begin
if n <= 1 then Fact := 1
else Fact := n * Fact(n - 1);
end;
end.

Основная программа:
program Main;
uses FactorialModule;
const a = 5; b = 7;
begin
Writeln(Fact(a));
Writeln(Fact(b));
end.

Функция использует правило: \(n! = n \cdot (n-1)!\), а \(0! = 1\).

0 0 Пожаловаться