*mod*operator.

function digit_sum(number:longint):longint; var sum:longint; begin sum := 0; while (number > 0) do begin sum := sum + number mod 10; number := number div 10; end; digit_sum := sum; end;

To calculate the sum of the digits, we go through each digit by successively dividing the number by 10, and extracting each digit using the *mod* operator.

function digit_sum(number:longint):longint; var sum:longint; begin sum := 0; while (number > 0) do begin sum := sum + number mod 10; number := number div 10; end; digit_sum := sum; end;

By continuing to use the site, you agree to the use of cookies. more information

The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.