18 lines
337 B
Plaintext
18 lines
337 B
Plaintext
PRINT "10 primeros términos de la sucesión de sylvester:"
|
|
PRINT
|
|
|
|
LET suma = 0
|
|
FOR i = 1 to 10
|
|
IF i = 1 then
|
|
LET sylvester = 2
|
|
ELSE
|
|
LET sylvester = sylvester*sylvester-sylvester+1
|
|
END IF
|
|
PRINT i; ": "; sylvester
|
|
LET suma = suma + 1 / sylvester
|
|
NEXT i
|
|
|
|
PRINT
|
|
PRINT "suma de sus recíprocos: "; suma
|
|
END
|