Создать рекурсивную функцию, которая находит цифровой корень числа. Pascal

Question

Создать рекурсивную функцию, которая находит цифровой корень числа. Pascal

Answer 1

function kor(n:integer):integer;

var s:integer;

begin

if n>9 then

begin

s:=0;

while n>0 do

 begin

 s:=s+n mod 10;

 n:=n div 10;

 end;

 kor:=kor(s);

 end

else kor:=n;

end;

begin

writeln(kor(87345691));

writeln(87345691 mod 9);

end.

Результат:

7

7