PRINT
PRINT "素因数分解"
PRINT
INPUT PROMPT "素因数分解したい自然数？ ":n
PRINT
LET f=2
DO UNTIL n=1
   DO WHILE MOD(n,f)=0
      PRINT f;
      LET n=n/f
   LOOP
   LET f=f+1
LOOP
PRINT
PRINT
END



######################################################################



PRINT
PRINT "素因数分解"
PRINT
INPUT PROMPT "素因数分解したい自然数？ ":n
PRINT
PRINT "  ";n;"⇒";
LET f=2
DO UNTIL n=1
   LET C=0
   DO WHILE MOD(n,f)=0
      IF C=0 THEN
         PRINT " ";f;
      END IF
      LET n=n/f
      LET C=C+1
   LOOP
   IF C>1 THEN
      PRINT "^";C;
   END IF
   LET f=f+1
LOOP
PRINT
PRINT
END