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;
function Suma(Numero: Integer): Integer; begin Result:= 0; while Numero > 0 do begin inc(Result, Numero mod 10); Numero:= Numero div 10; end; end;