15 lines
290 B
Plaintext
15 lines
290 B
Plaintext
10 LET n=0
|
|
20 FOR i=1 TO 1000
|
|
30 LET j=i
|
|
40 LET k=0
|
|
50 LET k=INT (k+FN m(j,10)^2)
|
|
60 LET j=INT (j/10)
|
|
70 IF j<>0 THEN GO TO 50
|
|
80 LET j=k
|
|
90 IF j=89 OR j=1 THEN GO TO 100
|
|
95 GO TO 40
|
|
100 IF j>1 THEN LET n=n+1
|
|
110 NEXT i
|
|
120 PRINT "Version 1: ";n
|
|
200 DEF FN m(a,b)=a-INT (a/b)*b: REM modulo
|