Задача 6 Урок 20

Задача 6 урок 20

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

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

program u20z6;
var n:integer;
function fun(n1:integer):integer;
begin
  if (n1=1) then
    result:=1
  else
   result:=n1+fun(n1-1);
end;
begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.