Suma+de+5+primeros+números+impares

=__**Suma de los 5 primeros números impares**__=

**Mal: Modificando la variable de control del bucle FOR** code format="pascal" PROGRAM FOR3 ; VAR N, i, iSuma : Integer ; BEGIN N := 5 ; WriteLn ('La suma de los ', N,           ' primeros números impares') ;

iSuma := 0 ; FOR i := 1 TO N DO      BEGIN iSuma := iSuma + i ; i    := i + 1     {calcular el siguiente Nº impar } { No se debe modificar la variable de control: i } END ; WriteLn ('RESULTADO: ', iSuma ) ;

ReadLn ; END. code

**BIEN: sin modificar la variable de control del bucle FOR** code format="pascal" PROGRAM FOR4 ; VAR N, i, iSuma, iNum : Integer ; BEGIN N := 5 ; WriteLn ('La suma de los ', N,           ' primeros números impares') ;

iSuma := 0 ;

FOR i := 1 TO N DO      BEGIN { Calcular el nº impar de esta iteración } iNum := 2 * i – 1 ; iSuma := iSuma + iNum ;  { no se modifica i } END ; WriteLn ('RESULTADO: ', iSuma ) ;

ReadLn ; END. code

**BIEN: sin modificar la variable de control del bucle FOR** code format="pascal" PROGRAM FOR4 ; VAR N, i, iSuma, iNum : Integer ; BEGIN N := 5 ; WriteLn ('La suma de los ', N,           ' primeros números impares') ;

iSuma := 0 ; iNum := 1 ; FOR i := 1 TO N DO      BEGIN iSuma := iSuma + iNum ;  { no se modifica i }

{ Calcular el nº impar de la siguiente iteración } iNum := iNum + 2 ; END ; WriteLn ('RESULTADO: ', iSuma ) ;

ReadLn ; END. code