Question

Напишите в Pascal программу: по заданному целому неотрицательному значению n вычислить n! = 1*2*3*... n.

Answer 1

Var  i,n,a :int64;beginreadln(n);
a:=1;for i := 1 to n doa:=a*i;write(a);end.

Answer 2

Конечно, вот пример программы на Pascal для вычисления факториала заданного целого неотрицательного числа n:

pascalCopy code
program FactorialCalculator;

var
  n, i: integer;
  factorial: longint;

begin
  writeln('Введите целое неотрицательное число n:');
  readln(n);

  // Проверка на отрицательные числа и ноль
  if n < 0 then
  begin
    writeln('Факториал определен только для неотрицательных чисел.');
    exit;
  end;

  factorial := 1;

  // Вычисление факториала
  for i := 2 to n do
  begin
    factorial := factorial * i;
  end;

  writeln('Факториал числа ', n, ' равен ', factorial);
end.

Это небольшая программа, которая запрашивает у пользователя целое неотрицательное число n, а затем вычисляет и выводит его факториал на экран. Программа также проверяет, что число n неотрицательное. Если введено отрицательное число, программа выдаст соответствующее сообщение.