А я опять к вам с задачей по информатике ** PascalABC.NET в синтаксисе Pascal ABC. Дано...

Question

А я опять к вам с задачей по информатике на PascalABC.NET в синтаксисе Pascal ABC.
Дано натуральное число n. Вычислить n! (факториал числа n вычисляется по формуле 1*2*3*…*n, например, факториал числа 5 равен 1*2*3*4*5=120).

Answer 1

Var
  i,n:integer;
  p:real;
begin
  Write('n='); Read(n);
  p:=1;
  for i:=1 to n do p:=p*i;
  Writeln(n,'!=',p)
end.

Пример
n=12
12!=479001600

Comments

Спасииибо конечно)