19 lines
366 B
Plaintext
19 lines
366 B
Plaintext
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
|