34 lines
295 B
Text
34 lines
295 B
Text
for i = 1 to 1000
|
|
|
|
let j = i
|
|
|
|
do
|
|
|
|
let k = 0
|
|
|
|
do
|
|
|
|
let k = int(k + (j % 10) ^ 2)
|
|
let j = int(j / 10)
|
|
|
|
wait
|
|
|
|
loop j <> 0
|
|
|
|
let j = k
|
|
|
|
loopuntil j = 89 or j = 1
|
|
|
|
if j > 1 then
|
|
|
|
let n = n + 1
|
|
|
|
endif
|
|
|
|
print "iterations: ", i
|
|
|
|
next i
|
|
|
|
print "count result: ", n
|
|
|
|
end
|