Data commit

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

@@ -0,0 +1,18 @@
+OpenConsole()
+PrintN("10 primeros términos de la sucesión de Sylvester:")
+
+suma.d = 0
+For i.i = 1 To 10
+  If i = 1
+    sylvester.d = 2
+  Else
+    sylvester.d = sylvester*sylvester-sylvester+1
+  EndIf
+  PrintN(Str(i) + ": " + StrD(sylvester))
+  suma = suma + 1 / sylvester
+Next i
+
+Print(#CRLF$ + "Suma de sus recíprocos: " + StrD(suma))
+Input()
+CloseConsole()
+End