Pascal function that calculates the sum of the digits of a number

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;

Leave a Reply

Your email address will not be published. Required fields are marked *

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.

Close