10 lines
239 B
Text
10 lines
239 B
Text
nr = 1000
|
|
num = 0
|
|
for n = 1 to nr
|
|
sum = 0
|
|
for m = 1 to len(string(n))
|
|
sum += pow(number(substr(string(n),m,1)),2)
|
|
if sum = 89 num += 1 see "" + n + " " + sum + nl ok
|
|
next
|
|
next
|
|
see "Total under 1000 is : " + num + nl
|