P_28_E_3

=__**Programa que la suma de los digitos de un numero entero**__=

Programa que lee un número entero (positivo o negativo) y calcula la suma de sus dígitos code format="pascal" PROGRAM P_28_E_3 ; VAR iNumero,     iRestoNumero, iSumaDigitos, iDigito     : Integer ; BEGIN Write ('   Escribe un número entero: ') ; ReadLn (iNumero) ;

iRestoNumero := Abs(iNumero) ;

iSumaDigitos := 0 ;

WHILE iRestoNumero > 0 DO    BEGIN iDigito     := iRestoNumero MOD 10 ; iRestoNumero := iRestoNumero DIV 10 ;

iSumaDigitos := iSumaDigitos + iDigito ; END ;

WriteLn('La suma de sus dígitos vale: ', iSumaDigitos) ; ReadLn ; END. code