June 2018 Update

Task/Almost-prime/PureBasic/almost-prime.purebasic

@@ -0,0 +1,43 @@
+EnableExplicit
+
+Procedure.b kprime(n.i, k.i)
+  Define p.i = 2,
+         f.i = 0
+
+  While f < k And p*p <= n
+    While n % p = 0
+      n / p
+      f + 1
+    Wend
+    p + 1
+  Wend
+
+  ProcedureReturn Bool(f + Bool(n > 1) = k)
+
+EndProcedure
+
+;___main____
+If Not OpenConsole("Almost prime")
+  End -1
+EndIf
+
+Define i.i,
+       c.i,
+       k.i
+
+For k = 1 To 5
+  Print("k = " + Str(k) + ":")
+
+  i = 2
+  c = 0
+  While c < 10
+    If kprime(i, k)
+      Print(RSet(Str(i),4))
+      c + 1
+    EndIf
+    i + 1
+  Wend
+  PrintN("")
+Next
+
+Input()