Cada nuevo término en la sucesión de Fibonacci se genera mediante la adición de los dos términos anteriores. Al comenzar con 1 y 2, los 10 primeros términos serán los siguientes:
1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Al tener en cuenta los términos de la sucesión de Fibonacci cuyos valores no superan los cuatro millones, hallar la suma de los términos más valorados.
Aquí el código:
Código: Seleccionar todo
Dim $numeroAnterior = 1
Dim $numeroSuperior = 1
Dim $Sumatotal = 0
Dim $sumaPares = 0
Dim $ParesTotal = 0
Dim $i = 1
While $i < 91
$Sumatotal = $numeroAnterior + $numeroSuperior ; 2 3 5
$numeroAnterior = $numeroSuperior ; 1 2 3
$numeroSuperior = $Sumatotal ; 2 ; 3 2
$sumaPares = Mod($Sumatotal,2)
If ($sumaPares = 0) Then
$ParesTotal = $Sumatotal + $ParesTotal
EndIf
$i = $i + 1
Wend
MsgBox(0,"prueba",$ParesTotal)Saludos
.