sumar cada digito de un numero entero

[emenchi34]

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

[[egostar]]

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

Saludos

PD: Bienvenido al Club

[[seoane]]

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;

[emenchi34]

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

[jachguate]

¿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?

[emenchi34]

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

[roman]

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

// Saludos

[emenchi34]

Copy(S; Index, Count: Integer): string;

 var
  numero, resultado : string;

 begin
  numero := '12345678';
  resultado := Copy(numero, 8, 1);
  ShowMessage('resultado : '+resultado);
 end;

resultado : 8

Saludos

[jachguate]

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.

[emenchi34]

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