%fattn.m
%fattoriale di n
n=5;
p=1;
for i=1:n
    p=p*i;
end
p1=p
x=1:1:n;
p2=prod(x)