سلام،این برنامه با matlabنوشته شده امید وارم مشکلتون حل شده باشه
clc
clear all
q(1,1)= input('m=');    j=1; , i=2; ,s=q(1,1);
while s~=i
    q(1,j+1)=q(1,j)/i;   s=q(1,j+1);
       if fix(s)==s;
       j=j+1;  i=i+1;
continue;
       else
       fprintf('this number have not factorial:%f\n',q(1,1))
break;
       end
end
if s==i
  fprintf('%f!=',i)
  fprintf('this number have factorial:%f\n',q(1,1))
end
برنامرو توی m-fileکپی کرده وباf5 ران کنید