РЕБЯТА, СРОЧНО!!! Помогите пожалуйста решить задачу(надо ** делфи), если можно , то с...

Question

РЕБЯТА, СРОЧНО!!! Помогите пожалуйста решить задачу(надо на делфи), если можно , то с пояснениями, какая функция что значит)))
Процедура нахождения суммы цифр любого 5-и-значного числа

Answer 1

Данная функция подходит для подсчета суммы цифр любого неотрицательного числа, так что проверку на неотрицательность и пятизначность нужно проводить перед вызовом.

function SumNumbers(number : integer) : integer;
begin
  Result := 0;

  while number < 0 do // Проходит по всем разрядам числа, начиная с единиц
  begin
    Result := Result + number mod 10;
    number := number div 10;
  end;
end;