Функция которая ищет сумму цифр числа

[vovamakr]

Мне нужно написать функцию которая ищет сумму цифр числа представленного на вход
например, для числа 123 это будет 1 + 2 + 3 = 6
Подскажите алгоритм как это сделать, а то я не могу понять как это сделать

[Stilet]

Что, даже никаких попыток не делал?

[Arigato]

function digital_sum(a: cardinal): cardinal;
begin
  Result := 0;
  while a > 0 do begin
    inc(Result, a mod 10);
    a := a div 10;
  end;
end;

[newerow1989]

var i,n,s:integer;
     k:string;
begin
   n:=123;
   k:=IntToStr(n);
   s:=0;
   For i:=1 to Length(k) do
      s:=s+StrToInt(k[i]);
   Writeln(s);
   Readln;
end;

Сойдет?

[Astand]

Если ищется сумма в «нумерологическом смысле» (ищется сумма в виде одной цифры от 0 до 9), а из вопроса это не понять. Это было бы ясно из, например, такого условия: «сумма цифр числа 98» и тогда ответ «17» говорим о какой сумме идет речь. Ведь в нумерологическом смысле сумма равна 8. В «нумерологическом смысле» решение просто. Если, например, А есть исходное число, то сумма составляющих его цифр B равна B := А mod 9 (результат деления по модулю). Разумеется число А всегда не равно нулю. Все это потому, что, как известно, нуль не влияет на сумму цифр. Но это относится к числу 9. Пусть у нас есть какое-либо число А прибавим к нему 9. Итак: А+9 = (А-1) + 1 +9. Сумма 1 и 9 дает, в «нумерологическом смысле», снова единицу и тогда (А-1) + 1 +9 = (А-1) + 1=А.

[Astand]

Уточнение:
Возможно ищется сумма в «нумерологическом смысле» (ищется сумма в виде одной цифры от 0 до 9), а из вопроса это не понять. Это было бы ясно из, например, такого условия: «сумма цифр числа 98» и тогда искомая сумма равна «17» и было бы видно о какой сумме идет речь. Ведь в «нумерологическом смысле» сумма равна 8. В «нумерологическом смысле» решение просто. Если, например, А есть исходное число, то сумма составляющих его цифр B равна B := А mod 9 (остаток от целочисленного деления на 9). Если результат операции равен нулю, то сумма равна 9. Разумеется число А всегда не равно нулю. Все это потому, что, как известно, нуль не влияет на сумму цифр. Но это относится к числу 9. Пусть у нас есть какое-либо число А прибавим к нему 9. Итак: А+9 = (А-1) + 1 +9. Сумма 1 и 9 дает, в «нумерологическом смысле», снова единицу и тогда (А-1) + 1 +9 = (А-1) + 1=А.