sumar cada digito de un numero entero
 

hola.. tengo el sig. problema tengo por decir algo el sig. numero 234567 y necesito sumar digito por digito del mismo o sea 2+3+4+5+6+7 como podria hacer?

Saludos



BlackFlash
Nothing is for Real

Convierte el número a una variable string y despues lo sumas caracter por caracter.

Saludos

PD: Bienvenido al Club

Este tipo de problemas me recuerda a cuando estaba aprendiendo a programar :) :

Código Delphi [-]
function Suma(Numero: Integer): Integer;
begin
  Result:= 0;
  while Numero > 0 do
  begin
    inc(Result, Numero mod 10);
    Numero:= Numero div 10;
  end;
end;

otra cosita
 

muchas gracias!!, me simplifico la vida jaaj:)
ahora que puedo sumar digito por digito necesito quedarme con la ultima cifra de la suma... ¿solucion?

¿que significa la última cifra de la suma? ¿el último dígito? ¿no tenes ya suficientes ideas para obtenerlo a partir de lo ya dicho aqui?

La idea no es solo copiar y pegar... ¿realmente te interesa aprender? o mas bien sacar la tarea?

Si tenes razon razon.. ya lo pude hacer....:D

¡Ah! Muy bien, ¿y no lo vas a compartir como los demás compartieron contigo?

// Saludos

resolucion
 

resultado : 8

Saludos

Lo siento, pero ni '12345678' es un número, ni el resultado es 8, mas bien es '8'.

A mi nunca me ha gustado eso de convertir de números a caracteres para una operación que puede hacerse solo con números, por ejemplo:

Código Delphi [-]
function UltimoDigito(Numero: Int64): Byte;
begin
  result := Numero mod 10;
end;

var
  numero, resultado: Integer;
begin
  Numero = 12345678;
  Resultado := UltimoDigito(Numero); // ahora si, es 8
end;

Por eso decía que ya debieras tener suficientes ideas con lo dicho antes...

Hasta luego.

;)

eso ya lo se al resultado lo necesitaba en string, y mi solucion al fin de cuentas es valida ¿nop?