Программирование на Delphi и не только Как посчитать сумму цифр числа? | Программирование на Delphi и не только

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, равно как и других автомобилей, это не очень быстрое занятие. Поэтому рекомендуется подать объявление во все крупные газеты и сайты с объявлениями.