Задача на рекурсивную функцию, Помогите пожалуйста Опции

[-SoulDrinker-]

Описать рекурсивную функцию digits без параметров, которая подсчитывает количество цифр в тексте, заданном во входном файле. Вообще догнать не могу. Помогите пожалуйста, заранее спосибо

[Дож]

Код

Function Digits:word;
Var isNumber : byte;
BEGIN
{Проверить кончился ли файл. Если да, то закончить функцию.};
{Взять из файла элемент, на который указывает указатель файла};
{Обработать взятый элемент. Если он цифра, то isNumber:=1; иначе isNumber:=0};
Digits:=Digits+isNumber;
end;

Сообщение отредактировано: Дож - 21.05.2005 22:09