Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Сен

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

Posted by obzor under Delphi

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

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;

тема на форуме

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: