в паскале. Сумма цифр числа

[Siroga35]

помогите если не трудно:Дане натуральне число N. Визначити суму цифр числа N, використовуючи тільки елементарні арифметичні операції (+, –, *, /).

[bullvinkle]

Я не задумывался, как можно организовать целочисленное деление и взятие остатка от деления используя всего-лишь элементарные арифметические операции (+, –, *, /)
Вот программа делает то, что надо, но без div и mod не обошлось.

var n,i,m,sum:longint;
begin
writeln('Enter N');
readln(n);
 sum:=0;
 while n > 10 do
       begin
            m:=n mod 10;
            n:=n div 10;
            sum:=sum+m;
        end;
sum:=sum+n;
writeln(sum);
readln;
end.

[Serge_Bliznykov]

Я не задумывался, как можно организовать целочисленное деление и взятие остатка от деления используя всего-лишь элементарные арифметические операции (+, –, *, /)

ну, целочисленное деление (и одновременно, получение остатка от деления) легко организуются через вычитаение делителя в цикле.
типа так (делим m на 10):

Chastnoe := 0;
Ostatok := m;
while Ostatok >= 10 do begin
  Ostatok := Ostatok - 10;
  Chastnoe := Chastnoe + 1;
end;

[bullvinkle]

Ну вот, осталось написать свои функции div и mod и задача решена.