Рекурсия

[McJordan]

Найти цифровой корень заданного натурального числа n (если сложить все цифры числа, затем – все
цифры полученной суммы и повторять это до тех пор, пока не получится однозначное число, то
такое однозначное число называется цифровым корнем числа).

[McJordan]

сделайте пожалуйста....очень срочно надо

[puporev]

uses crt;
function Koren(k:longint):byte;
 function Summa(n:longint):byte;
 begin
 if n<10 then Summa:=n
 else Summa:=Summa(n div 10)+n mod 10;
 end;
var a:byte;
begin
if Summa(k)<10 then Koren:=Summa(k)
else
begin
a:=Summa(k);
Koren:=Koren(Summa(a));
end;
end;
var k:longint;
    a:byte;
begin
clrscr;
write('k=');
readln(k);
write(Koren(k));
readln
end.

[McJordan]

респект и уважуха

[<Tyz>]

1.Напечатать все возрастающие последовательности длины k, элементами которых являются натуральные числа от 1 до n. (Предполагается, что k не превосходит n – иначе таких последовательностей не существует.)

[Serge_Bliznykov]

ну, раз тут некоторые начинают постить свои задачи,
значит тему пора прикрывать...

закрыто.