Question

Напиши программу на языке Паскаль. Вычислить n!, если значение n пользователь вводит с клавиатуры. Если n=8, то на экране выводится n!= .

Answer 1

Код:

var  n, i, s: integer;

begin

 read(n);

 s := 1;

 for i := 1 to n do

   s := s * i;

 writeln('n!= ', s);

end.

Answer 2

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

pascalCopy code
program FactorialCalculator;

var
  n, i: integer;
  factorial: longint;

begin
  writeln('Введите значение n:');
  readln(n);

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

  readln; // Ждем, пока пользователь нажмет Enter
end.

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