Арифметические действия с целыми числами, которые не определяются типом Longint.

[Leshii]

Доброго времени суток.Нужен совет.
Собственно тут я прибег к типу Longint, и впал в штопор Как же собственно можно сделать по другому? Заранее спасибо за совет или же ответ.

Uses crt;
var n:longint;
function Kol (n:longint):integer;
begin
    if n>9 then Kol:=Kol(N mod 10)+kol(N div 10)
    else Kol:=1;
end;

begin
    Write('Vvedite 4uslo N: ');ReadLn(n);
    WriteLn(kol(n));
    ReadLn;
end.

[veniside]

Так а что надо-то?

Kol(N mod 10)

эту ерунду можно спокойно заменить на 1.

[Leshii]

Есть тип Longint, вопрос заключался в том как сделать без этого типа то есть иначе. А суть задачи ( она большая ) посчитать количество цифр в числе.
Вот я и написал с помощью типа Longint, а потом просто внимательно прочитал название задания ( оно указано в шапке ).И понял что уже делаю частично не так как надо.

[SourZ]

Если нужно только посчитать количество цифр в числе, то можно число ввести в строку, а потом просто узнать длину строки.

[veniside]

А, ну если и вас накрыло волной длинной арифметики, которая сейчас пошла по вузам (судя по нереальному количеству одинаковых запросов), то ищите темы "работа с большими числами", "как умножить большие числа", "как разделить большие числа" и т.п., коих тут уже создано десятки.