Дано натуральное число n, вычислить n! (0!=1, n!=n*(n-1)!). Составить программу ** Pascal.

Question

Дано натуральное число n, вычислить n! (0!=1, n!=n*(n-1)!). Составить программу на Pascal.

Comments

Мне просто надо решить задачу боже млц

---

Помогите

---

тебе нужно факториал посчитать?

---

Да

Answer 1

var

   a : integer;

   fac : BigInteger := 1;

   

begin

   readln(a);

   if a > 0 then for var i := 1 to a do fac *= i;

   writeln(a, '!=', fac);

end.