Показать сообщение отдельно
  #2  
Старый 08.10.2009, 01:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну мог бы и сам сделать.
1. Переведи число в строку, а далее в цикле от 1 до Length()/2 сравниваешь символы S[i] и S[Length()-I]. Если до конца цикла различий нет, то палиндром. Еще один способ. Переводишь строку, потом ее инвертируешь и сравниваешь результат. Все.
2. При вводе добавляешь все это дело в массив, далее поиск минимального числа и вывод предыдущего. Вообще примитивно...
Ответить с цитированием