Помогите с 1 задачей

1) При заданном n вычислить n факториал

Question

Петронилла

24 марта, 01:27

+1

Ответы (1)

Знаете ответ на вопрос?

Бонифат · Answer 1

Uses Crt;

var

i, p, n:longint;

begin

ClrScr;

Write ('n=') ; Read (n) ;

p:=1;

for i:=2 to n do p:=p*i;

Writeln ('n!=', p) ;

ReadKey

end.

Помогите с 1 задачей1) При заданном n вычислить n факториал