Надо написать программу

Вычислите N! ("эн-факториал") - произведение всех натуральных чисел от 1 до N (N!=1∙2∙3∙ ...∙ N).

Входные данные

Вводится единственное число N - натуральное, не превосходит 12.

Выходные данные

Выведите полученное значение N!

Примеры

входные данные

2

выходные данные

2

входные данные

3

выходные данные

6 (На Паскале) Буду благодарен

Question

Ирма

27 июня, 07:21

+4

Ответы (2)

Знаете ответ?

Катена · Answer 1

Program fact;

var

n, f, i: integer;

begin

f : = 1;

readln (n) ;

for i : = 2 to n do

f : = f * i;

writeln (f) ;

end.

Викентия · Answer 2

Var b, i, k, n: int64;

begin

readln (n) ;

b:=1;

for i : = 1 to n do

b:=b*i;

writeln (b) ;

end.

Входные данные подставлять в переменную n