Arithmetic numbers: Difference between revisions
m
→{{header|FutureBasic}}
Line 756:
toolbox Microseconds( UnsignedWide * microTickCount )
dim as UnsignedWide Time1, Time2
Microseconds( @Time1 )▼
window 1, @"Arithmetic numbers",(0,0,600,200)
Print "The first 100 arithmetic numbers are:"
▲Microseconds( @Time1 ) //start time
for N = 1 to 2000000)
Line 813 ⟶ 814:
next N
Microseconds( @Time2 ) //end time
float TimeTaken
TimeTaken = (Time2.lo-Time1.lo)/1000/100/10
Line 837 ⟶ 839:
The 1000000th arithmetic number is 1,228,663 up to which 905,043 are composite.
Took 1.
</pre>
| |||