Как посчитать сумму цифр числа?

Delphi FAQ >> Алгоритмы

function SumDig(N: Longint): Byte;
begin
  result := 0;
  while (N >= 1) do
  begin
    result := result + (N mod 10);
    N := N div 10;
  end;
end;


Автомобили Daewoo набирают все большую популярность в странах СНГ. Продажа автомобилей Daewoo, равно как и других автомобилей, это не очень быстрое занятие. Поэтому рекомендуется подать объявление во все крупные газеты и сайты с объявлениями.