Программа

[Tamee]

Хай всем, писал программу, наткнулся на проблему.
Задача:
Написать программу для определения четно или нет количество символов введенной строки, для этого использовать косвенную рекурсию. Переделать косвенную рекурсию в прямую.
Вопрос:
Куда сюда можно впихнуть рекурсию? Просто программа настолько маленькая, что я банально не вижу смысла и возможности её сюда всунуть.

Всем заранее спасибо!!

[Stilet]

Можно. С потолка:

function n(s:string;i:integer):Boolean;begin
 if (i>Length(s)) then  n:=(i mod 2)=0 else n:=n(s,i+1);
end;

Вызов: Write(n,'ddasd',1));
Думаю этот пример еще меньше твоего.

[Tamee]

Вы абсолютно правы. Благодарю за помощь!