Data commit

Task/Sylvesters-sequence/BASIC256/sylvesters-sequence.basic

@@ -0,0 +1,17 @@
+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