Proc31. Описать функцию IsPalindrom($K$), возвращающую True, если целый параметр $K$ ($> 0$) является палиндромом (то есть его запись читается одинаково слева направо и справа налево), и False в противном случае. С ее помощью найти количество палиндромов в наборе из 10 целых положительных чисел. При описании функции можно использовать функции DigitCount и DigitN из заданий Proc29 и Proc30.

Решение Дмитрий:

Файл Proc31.txt

Другие задачи из раздела Proc можно посмотреть здесь.