По заданному целому неотрицательному значению n вычислить n! = 1*2*3*…n. Учтите, что по...

Question

По заданному целому неотрицательному значению n вычислить n! = 1*2*3*…n. Учтите, что по определению 0!=1
На паскале!б Срочно! Заранее спасибо!

Answer 1

I, n:integer; S:int64; begin readln(n); s:=1; for I := 2 to n do s := s * I; writeln(s); End.