Как из четырехзначного числа посредством операций div и mod найти сумму каждого числа Опции

[Маленыч]

Есть какое-то четырехзначное число, допустим 1234. Необходимо, посредством использования функций div и mod найти сумму чисел в этом числе. Т.е. говоря по русски 1+2+3+4. Замечу, что четырехзначное число может быть любым.

[Lapp]

Вообще-то, для числа любой значности это делается так:

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

Для именно 4-значного числа можно, если есть настойчивое желание, усложнить себе жизнь примерно так:

  s:= n mod 10 + n div 10 mod 10 + n div 10 div 10 mod 10 + n div 10 div 10 div 10;

Но тут все равно, кроме mod и div есть еще и +.