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

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

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

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

var N, sum :integer;

function output(N :integer;var sum :integer) :integer;
var i, a :integer;
begin
  if N  > 0 then
  begin
    a := N mod 10;
    sum := sum + a;
    output(N div 10, sum);
  end;
  output := sum;
end;

begin
  write(output(952, sum));
end.