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

[Feran]

Программа работает верно. Спасибо за помощь

Program Example_18;
uses crt;
Var n, k, s : Longint;

function fun(t:Longint):Longint;
begin
     if t=0 then fun:=0
     else fun:=(t mod 10)+ fun(t div 10);
end;

function func(r:Longint):Longint;
begin
     if r<10 then func:=r
     else func:= func(fun(r));
end;

Begin
clrscr;
Writeln('Vvedite chislo');
Readln(n);
s:=0;
s:=func(n);
Writeln('tsifrovoi koren shicla',n,' raven ',s);
readkey;
End.

[andrewpalkin]

Сообщение от Feran

Программа работает верно. Спасибо за помощь

Не за что , не откажусь от плюсика