Question

Напишите в Pascal программу: по заданному целому неотрицательному значению n вычислить n! = 1*2*3*... n.

Answer 1

var  i,n,a :int64;beginreadln(n);
a:=1;for i := 1 to n doa:=a*i;write(a);end.