[[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;