Показать сообщение отдельно
  #1  
Старый 30.05.2017, 11:55
vity.ivanov2010@yandex.ru vity.ivanov2010@yandex.ru вне форума
Прохожий
 
Регистрация: 30.05.2017
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Найти все палиндромы

Помогите написать программу в Console Application.
Найти все палиндромы не большие 4000, т.е. такие числа, которые читаются одинаково сначала и с конца (например, 535, 1221, 474 и т.д.). Вывести все их файл и подсчитать их общее число. Цифры от 0 до 9 тоже считать палиндромами.
Ответить с цитированием