Задать вопрос Регистрация
Помочь другим

Ответы 2

  • program factorial;  function fact(n: integer): longint; begin if (n = 0) then fact := 1 else fact := n * fact(n - 1);  end;  var n: integer;  begin  for n := 0 to 16 do  writeln(n, '! = ', fact(n)); end.

    • Автор:

      selena
    • 6 лет назад
    • 0

  • var 

      n, fact: word;  //fact - факториал числа

      i: integer;

     

    begin

      fact:= 1;  //Присваиваем начальное значение

      writeln('Введите число n');

      readln(n);

      for i:= 1 to n do   //Для i, равного от 1 до n умножаем значение fact на i

        fact:= fact * i;

      writeln(n, '! = ', fact);

    end.

    Отметь решение, как лучшее, плиз)

      

    • Автор:

      rubi
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years