Вычислить произведение - PascalABC.NET (25162)

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

вычислить x! (x!= 1*2*3*4...*x)

Решение задачи: «Вычислить произведение»

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

begin
  var N := Abs(ReadLnInteger('N ='));
  Write(N, '! = ');
  var F : Biginteger := 1;
  while N > 1 do
    begin
      F *= N;
      N -= 1;
    end;
  WriteLn(F);
end.

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

В этом коде:

Сначала мы считываем целое число N с помощью функции ReadLnInteger.
Затем мы выводим N и говорим, что мы будем вычислять факториал N.
Мы инициализируем переменную F равной 1.
Затем мы используем цикл while для вычисления факториала N.
Внутри цикла мы умножаем F на N.
Затем мы вычитаем 1 из N.
Мы продолжаем этот процесс до тех пор, пока N больше 1.
После окончания цикла мы выводим F. Код вычисляет факториал числа N, используя цикл while. Значение факториала выводится на экран.