Sum of divisors: Difference between revisions
Sum of divisors in various BASIC dialents
(Sum of divisors in various BASIC dialents) |
|||
Line 307:
112 168 128 144 120
252 98 171 156 217</pre>
==={{header|BASIC256}}===
<lang freebasic>print 1; chr(9);
for n = 2 to 100
p = 1 + n
for i = 2 to n / 2
if n mod i = 0 then p += i
next i
print p; chr(9);
next n
end</lang>
==={{header|PureBasic}}===
<lang PureBasic>OpenConsole()
Print("1")
For n.i = 2 To 100
p = 1 + n
For i.i = 2 To n / 2
If Mod(n, i) = 0 : p + i : EndIf
Next i
Print(#TAB$ + Str(p))
Next n
Input()
CloseConsole()</lang>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<lang QBasic>PRINT 1,
FOR n = 2 TO 100
p = 1 + n
FOR i = 2 TO n / 2
IF n MOD i = 0 THEN p = p + i
NEXT i
PRINT p,
NEXT n
END</lang>
==={{header|True BASIC}}===
<lang qbasic>PRINT 1,
FOR n = 2 To 100
LET p = 1 + n
FOR i = 2 To n / 2
IF MOD(n, i) = 0 Then LET p = p + i
NEXT i
PRINT p,
NEXT n
END</lang>
==={{header|Yabasic}}===
<lang freebasic>print 1,
for n = 2 to 100
p = 1 + n
for i = 2 to n / 2
if mod(n, i) = 0 then p = p + i : fi
next i
print p,
next n
end</lang>
=={{header|BCPL}}==
| |||