Рекурсия. Счастливые билеты.

[k1r1ch]

Вот задача на рекурсию. Я усиленно пытаюсь въехать в эту тему, но пока как-то не очень. Наведите на верную мысль, если не затруднит (я не прошу готового решения, только если с комментами )
"Написать программу определения количества шестизначных
"счастливых" трамвайных билетов, у которых сумма первых трех цифр
совпадает с суммой трех последних."

[LeBron]

Не вкурсе, как ее решать рекурсивно, так как рекурсией не пользуюсь. "Человеческое" решение - для каждой возможной суммы от 1 до 81 находим количество таких возможных 1ых частей билета и возможных вторых частей билета. Умножаем и суммируем. (если речь идет о самом популярном определении "счастливости" - через сумму).

[ОДИНОЧЕСТВО В СЕТИ]

for i:= 1 to 999 do
   mas[i]:=i mod 10+i div 10 mod 10+i div 100;
readln(number);
if mas[number div 1000]=mas[number mod 1000] then writeln ('Congratulations!!');

а вот как сюда рекурсию прикрутить?

[k1r1ch]

Такое решение очевидно, но с помощью рекурсии наверняка можно сделать быстрее... Дождемся совета профессионалов =)

[profi]

У меня при рекурсии счастливых билетов было переполнение стека