Data update

Task/Semiprime/QuickBASIC/semiprime.basic

@@ -0,0 +1,24 @@
+' Semiprime
+DECLARE FUNCTION Count% (BYVAL N%)
+
+INPUT "Enter an integer: ", N%
+IF Count%(N%) = 2 THEN
+  PRINT "It is a semiprime."
+ELSE
+  PRINT "It is not a semiprime."
+END IF
+END
+
+FUNCTION Count% (BYVAL N%)
+  N% = ABS(N%)
+  Result% = 0
+  IF N% >= 2 THEN
+    FOR Factor% = 2 TO N%
+      WHILE N% MOD Factor% = 0
+        Result% = Result% + 1
+        N% = N% \ Factor%
+      WEND
+    NEXT Factor%
+  END IF
+  Count% = Result%
+END FUNCTION