Product of divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 292: / Line 292: @@
 3.1117E+06    43            85184         91125
 47            2.54804E+08   343           125000</pre>
+==={{header|BASIC256}}===
+<lang BASIC256>for n = 1 to 50
+    p = n
+    for i = 2 to n/2
+        if n mod i = 0 then p *= i
+    next i
+    if (n-1 mod 5) = 0 then print
+    print p; chr(9);
+next n
+end</lang>
+==={{header|PureBasic}}===
+<lang PureBasic>OpenConsole()
+For n.i = 1 To 50
+  p = n
+  For i.i = 2 To n/2
+    If n % i = 0 : p * i : EndIf
+  Next i
+  ;If (n-1) % 5 = 0 : PrintN("")  : EndIf
+  Print(Str(p) + #TAB$)
+Next n
+Input()
+CloseConsole()</lang>
+==={{header|QBasic}}===
+{{works with|QBasic|1.1}}
+{{works with|QuickBasic|4.5}}
+<lang QBasic>FOR n = 1 TO 50
+    p = n
+    FOR i = 2 TO n / 2
+        IF n MOD i = 0 THEN p = p * i
+    NEXT i
+    IF (n - 1) MOD 5 = 0 THEN PRINT
+    PRINT USING "###########"; p;
+NEXT n
+END</lang>
+==={{header|True BASIC}}===
+<lang qbasic>FOR n = 1 TO 50
+    LET p = n
+    FOR i = 2 TO n/2
+        IF MOD(n, i) = 0 THEN LET p = p * i
+    NEXT i
+    IF MOD(n-1, 5) = 0 THEN PRINT
+    PRINT p,
+NEXT n
+END</lang>
+==={{header|Yabasic}}===
+<lang yabasic>for n = 1 to 50
+    p = n
+    for i = 2 to n/2
+        if mod(n, i) = 0 then p = p * i : fi
+    next i
+    if mod(n-1, 5) = 0 then print : fi
+    print p using "###########";
+next n
+end</lang>
 =={{header|BQN}}==