Suma+25+primeros+enteros

=__**Suma de los 25 primeros enteros**__= > Escribir un programa que calcule la suma de los 25 primeros números enteros.

**Utilizando un bucle WHILE** code format="pascal" PROGRAM Sum_25 ; VAR iCantNumeros, iNumero, {variable de control (nº que se añade en la iteración)} iSuma  : Integer ;                     { Suma de los números } BEGIN iCantNumeros := 25 ;

{ "fase de inicialización" } iSuma  := 0 ;            { aún no se ha sumado ningún número } iNumero := 1 ;           { El primer número que se va a sumar es el 1 }

{ cálculo de la suma de 25 números } WHILE iNumero <= iCantNumeros DO      BEGIN iSuma := iSuma + iNumero ;

{ Fase de preparación para la siguiente iteración} iNumero := iNumero + 1 ; END ;

WriteLn ('La suma de los primeros 25 nº enteros es: ', iSuma) ;

ReadLn ; END. code

**Utilizando un bucle FOR** code format="pascal" PROGRAM Sum_25 ; VAR iCantNumeros, iNumero, {variable de control (nº que se añade en la iteración)} iSuma  : Integer ;                     { Suma de los números } BEGIN iCantNumeros := 25 ;

{ "fase de inicialización" } iSuma  := 0 ;            { aún no se ha sumado ningún número }

{ cálculo de la suma de 25 números } FOR iNumero := 1 TO iCantNumeros DO       iSuma := iSuma + iNumero ;

WriteLn ('La suma de los primeros 25 nº enteros es: ', iSuma) ;

ReadLn ; END. code

**MAS EFICIENTE: Sin utilizar un bucle** code format="pascal" PROGRAM Sum_25 ; VAR iCantNumeros, iSuma  : Integer ;                     { Suma de los números } BEGIN iCantNumeros := 25 ;

iSuma  :=  Round (( 1 + iCantNumeros) / 2 * iCantNumeros)  ;

WriteLn ('La suma de los primeros 25 nº enteros es: ', iSuma) ;

ReadLn ; END. code