10 lines
209 B
Text
10 lines
209 B
Text
10 DEF FNE(A)=(A+1) MOD 2
|
|
20 DEF FNH(A)=INT(A/2)
|
|
30 DEF FND(A)=2*A
|
|
40 X=17:Y=34:TOT=0
|
|
50 WHILE X>=1
|
|
60 PRINT X,
|
|
70 IF FNE(X)=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT
|
|
80 X=FNH(X):Y=FND(Y)
|
|
90 WEND
|
|
100 PRINT "=", TOT
|