Count in factors: Difference between revisions

Content added Content deleted

Inline

@@ Line 876: / Line 876: @@
 =={{header|BASIC}}==
 ==={{header|Applesoft BASIC}}===
 <lang ApplesoftBasic> 100  FOR I = 1 TO 20
@@ Line 885: / Line 886: @@
 FA$ = "1"
 LET NUM = I
-LET X$ = " X "
+LET O = 5 - (I = 1) * 4
-LET O = 5 - (I = 1) * 4
+FOR F = 2 TO I
-FOR F = 2 TO I
+LET M =  INT (NUM / F) * F
-LET M =  INT (NUM / F) * F
+IF NUM - M GOTO 300
-IF NUM - M GOTO 300
+LET NUM = NUM / F
-LET NUM = NUM / F
+LET F$ =  STR $(F)
-FA$ = FA$ + X$ +  STR$ (F)
+FA$ = FA$ + " X " +  F$
 LET F = F - 1