Question

Дано натуральное число n, вычислить n! (0!=1, n!=n*(n-1)!). Составить программу на Pascal.

Answer 1

var

   a : integer;

   fac : BigInteger := 1;

   

begin

   readln(a);

   if a > 0 then for var i := 1 to a do fac *= i;

   writeln(a, '!=', fac);

end.

Answer 2

Для вычисления факториала натурального числа n в Pascal, можно использовать рекурсивную функцию. Вот пример программы на Pascal, которая вычисляет факториал:

pascalCopy code
program Factorial;

function CalculateFactorial(n: integer): integer;
begin
  if n = 0 then
    CalculateFactorial := 1
  else
    CalculateFactorial := n * CalculateFactorial(n - 1);
end;

var
  n, result: integer;

begin
  writeln('Введите натуральное число n для вычисления факториала:');
  readln(n);

  if n < 0 then
    writeln('Факториал определен только для неотрицательных чисел.')
  else
  begin
    result := CalculateFactorial(n);
    writeln('Факториал ', n, '! = ', result);
  end;
end.

При запуске программы она попросит вас ввести натуральное число n, а затем вычислит и выведет его факториал n!. Обратите внимание, что программа будет выдавать верный результат только для неотрицательных чисел.