Largest five adjacent number: Difference between revisions
add FreeBASIC
(Ada version) |
(add FreeBASIC) |
||
Line 182:
<pre>
99987
</pre>
=={{header|FreeBASIC}}==
Generate the number digit by digit, and test as we go. If the task didn't specifically ask to generate the whole 1,000 digit number I wouldn't bother storing more than five of its digits at a time.
<lang freebasic>
randomize timer
dim as ubyte number(0 to 999)
dim as uinteger seg, highest = 0, lowest = 100000
for i as uinteger = 0 to 999
number(i) = int(rnd*10)
if i >= 4 then
seg = number(i) + 10*number(i-1) + 100*number(i-2) +_
1000*number(i-3) + 10000*number(i-4)
if seg < lowest then lowest = seg
if seg > highest then highest = seg
end if
next i
print highest, lowest
</lang>
{{output}}
<pre>
99748 31
</pre>
| |||