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

Головой думать будем???
Опять же, перебираем все числа от 1000 до 9999, конвертируем в строку и проверяем.
Ответить с цитированием