задача 7 урок 21

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

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

program task_7_lesson21;

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

Консоль

456
15