Question

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

Answer 1

Ответ:

var n,i: integer;

f:real;

begin

write('n = ');

readln(n);

f:=1;

for i:=1 to n do f:=f*i;

writeln (n,'! = ',f)

end.

Объяснение:

n < 171

Answer 2

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

pascalCopy code
program CalculateFactorial;

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;
end.

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