Двоичный код и палиндром. Опции

[Марк]

Извините пожалуйста но нормального ничего не нашёл ни поиском ни так.

Условие задачи.
Найти среди целых чисел до 10^6 палиндромы одновременно в десятичной и двоичной формах. Умоляю пожалуйста.

[мисс_граффити]

Строками можно пользоваться?

Вообще-то для начала прочитай вот это:
FAQ - палиндромы

Сообщение отредактировано: мисс_граффити - 1.11.2006 21:12

[Гость]

Можно пользоваться чем угодно в рамках паскаля.

[мисс_граффити]

тогда - вообще в поиск. решалось.
ключевые слова "палиндром" и "перевертыш".

[Гость]

Большое спасибо. За этот день я воспользовался поиском 37 раз. Ну нет там того что мне подходит!!!!! Не работает оно для этой задачи понятно ?

[volvo]

Нет, не понятно!

Я дам тебе 3 ссылки, и программку из 5 строк, и оно заработает, теперь понятно???

Смотри...
Отсюда: FAQ: Общие вопросы по математике берешь функцию FromDec

Отсюда: FAQ: Модуль для работы со строками берешь IsPalindrom

и отсюда: FAQ: Замечательные числа берешь is_palindrom...

Теперь глянь сюда:

var i: longint;
begin
  for i := 1 to 100000 do begin
    if is_palindrom(i) and IsPalindrom(fromdec(i, 2)) then writeln(i);
  end;
end.

Что? Не работает? А может, надо чуть-чуть подумать???

[Гость]

volvo спасибо. голова уже не варит совсем. Я больше графикой занимаюсь у меня с програмированием напряг. спасибо.