Задача 7 Урок 21

Задача 7 Урок 21

Дано натуральное число N. Вычислите сумму его цифр.

(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).

var
  n: integer;

function sum(n: integer): integer;
begin
  if(n < 10) then
    result := n
  else
  begin
    result := (n mod 10) + sum(n div 10);
  end;
end;

begin

  writeln('Vvedite chislo: ');
  readln(n);

  writeln();

  writeln(sum(n));

  readln();
end.