Anonymous user
Count in octal: Difference between revisions
no edit summary
No edit summary |
|||
Line 2,753:
for n in xrange(sys.maxint):
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}}==
| |||