Самый простой способ...
Код:
var
N, Summ, i: word;//Число, Сумма, цикл
S: string;//Вспомогательная переменная
begin
S := IntToStr(N);//Переводим число в строку
Sum := 0;//Начальное значение суммы
for i := 0 to Length(S)-1 do
Sum := Sum + StrToInt(S[i]);//Строка число это массив символов
end; |