Question

Составить программу на Паскале которая вычисляет N!
N! =1*2*3x_*N)

Answer 1

Ответ:

var

i,n,k:integer;

begin

k:=1;

readln(n);

for i:= 1 to n do k:=k*i;

write(k);

end.