Разложение числа на цифры, ПЛЗ посмотрите сначала прежде чем в фак посылать Опции

[kr3v3tkus]

Посмотрите пожалста задачу, я уже в поиске искал. но там выдаёт такое разбивание числа типа 6=5+1 или сумма чисел в массиве, а мне надо типа 605=6+0+5. Вся трудность в том, что я не знаю как применить свойство мода и дива для множества чисел я знаю, что чтобы получить например 2 из 123
нужно сделать (123 div 10) mod 10, но если у нас есть такое число - 1234, то ведь надо например для 1 делать просто div 1000, для 2 и див и мод ну и т.д.
Помогите или пошлите в пример плз

Составить программу нахождения среднего арифметического значения цифр заданного натурального числа N (1<N<1000000000).

Код

program lol;
var n:longint;
      k,s:integer;
begin
k:=1;
s:=0;
z:=n;
writeln('vvesti 4islo');
readln(n);
writeln;
if (n>1)and(n<1000000000) then  {'условие для n'}
  begin

    while z>=10 do  {'здесь идёт вычисление из скольки цифр состоит число'}
      begin
        z:=z div 10;
        k:=k+1;
      end;

  begin  {' !!! а здесь надо найти сумму состовляющих число цифр'}
    while i<=k do

  end;

  end;
else writeln('neprav1ln1y argyment');
readln;
end.

[kr3v3tkus]

2 volvo

Сумма цифр числа n = 1234567 равна 28 и ничему другому

нуда мне это и нужно

а мне надо типа 605=6+0+5

извини, я просто не понял применится ли

Код

while n <> 0 do begin
s := s + (n mod 10);
n := n div 10;
end;

к числу 1234567? ну если трассировать то ведь вроде получается так
1 s:=s+(n mod 10) {s=0+1234567 mod 10 => s=0+234567}
n:= n div 10 {s=123456}
так? извини конечно если я ошибаюс голова уже пухнет

2 Alex7
сенка, конечно туманно, но ща попробую раскурочить