По-моему «членство» — это ругательство. «Это просто членство какое-то!».

Написал небольшую програмку на Perl для подсчёта количества счастливых билетов в последовательности от 000000 до 999999. Их оказалось 55252.

for (0...999999)
{
    $a = ('0' x (6-length $_)) . $_;
    $c++ if substr($a, 0, 1)+substr($a, 1, 1)+substr($a, 2, 1) ==
            substr($a, 3, 1)+substr($a, 4, 1)+substr($a, 5, 1);
}
print "$c\n";

ADOM теперь есть и под Windows [ >>> ]