Count in octal: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 2,753: | Line 2,753: | ||
for n in xrange(sys.maxint): |
for n in xrange(sys.maxint): |
||
print oct(n)</lang> |
print oct(n)</lang> |
||
=={{header|QB64}}== |
|||
<lang QB64> |
|||
Dim As Integer iNum, Icount |
|||
Dim sMax As String |
|||
sMax = "" |
|||
Do While Val(sMax) <= 0 Or Val(sMax) > 32767 |
|||
Input "Please type a value from 1 to 32767 ", sMax |
|||
Loop |
|||
iNum = Val(sMax) |
|||
For Icount = 0 To iNum Step 1 |
|||
Print Oct$(Icount) |
|||
Next |
|||
End |
|||
REM also QBasic example runs under QB64 |
|||
</lang> |
|||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||