Quersum.-Berechnung

[marabu]

Oder noch kürzer:

Delphi-Quellcode:

function CrossSum(n: Int64): Integer;
begin
  if n < 0 then Result := -1 else
  if n = 0 then Result := 0 else
  Result := CrossSum(n div 10) + (n mod 10);
end;

Grüße vom marabu