Вычисление факториала на Pascal

      Комментарии к записи Вычисление факториала на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Вычисление факториала на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3757

    Программа вычисляет факториал положительного числа N.

    Решение:

    program functions_4;
    uses crt;
    var
      n: integer;
    function factorial(m: integer): integer;
    var i, f: integer;
    begin
      f:=1;
      for i:=1 to m do
        f:=f*i;
      factorial:=f;
    end;
    begin
      clrscr;
      write('N > '); read(n);
      write(n, '! = ', factorial(n));
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.