Question

2.Факториал числа.Составить программу Паскаль.

Answer 1

Var N, F, i :integer;
begin
  writeln('введите число');
  ReadLN(N);
  F:=1;
  for i:=1 to N do F:=F*N;
  write('факториал числа ',N,' = ',F);
end.

Answer 2

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

pascalCopy code
program Factorial;

var
  num, factorial: integer;

begin
  write('Введите число: ');
  readln(num);

  factorial := 1;

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

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

Обратите внимание, что код может отличаться в зависимости от используемой среды разработки или компилятора.