% % % % % % % % % % % % % % % % % % % % % % % % % %
%                                                 %
%    Loesung der Aufgabe 14, Matlabkurs WS06/07   %
%                                                 %
% % % % % % % % % % % % % % % % % % % % % % % % % %

clear all

disp('Dieses Programm berechnet zu einer natuerlichen Zahl n die Fakultet n!')
n = input('Bitte eine natuerliche Zahl eingeben: ');

N=n; % fuer spaeter speichern

if n<0
    error('n ist nicht positiv!')
end

if isreal(n)~=1
    error('n ist keine natuerliche Zahl!')
end

if mod(n,1)~=0
    error('n ist keine natuerliche Zahl!')
end

z=1;
while n>0
    z=z*n;
    n=n-1;
end

disp(['',num2str(N),'! = ',num2str(z)])