задачи в паскале

[ALYA18]

Помоги пожалуйста написать задачи в паскале!!!
Буду очень вам благодарна!![/COLOR]1.Написать рекурсивную функцию вычисления суммы цифр натурального числа
2.Даны 2 натуральных числа.Выяснить в каком из них больше цифр.Определить функцию для расчета кол-ва цифр натурального числа

[GetMax]

Определить функцию для расчета кол-ва цифр натурального числа

Function KolCifr(Chislo:Longint):Byte;
Var
  Kol:Byte;
Begin
  Kol:=0;
  While Chislo > 0 do
  Begin
    Chislo:=Chislo div 10;
    Inc(Kol)
  End;
  KolCifr:=Kol
End;

[ALYA18]

спасибо вам))))) может, кто ещё напишет?только чуть в упрощенном виде...боюсь будут придираться и говорить что такому не учили!!!

[GetMax]

только чуть в упрощенном виде

Куда уж проще

Написать рекурсивную функцию вычисления суммы цифр натурального числа

Function RecSum(Chislo:LongInt):Byte;
Begin
  If Chislo < 10 then RecSum:=Chislo
  Else
   RecSum:= Chislo mod 10 + RecSum(Chislo div 10);
End;

[mss]

Стыдно должно быь получив полну лохань говна требовать еще и ложку к ней.

[ALYA18]

спасибо огромное))
а вторую задачу не знаешь как решать?