Версия для печати темы

Автор: Марк 1.11.2006 20:48

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

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

Автор: мисс_граффити 1.11.2006 21:09

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

Вообще-то для начала прочитай вот это:
http://forum.pascal.net.ru/index.php?showtopic=3916&st=0&p=30660&#entry30660

Автор: Гость 2.11.2006 1:06

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

Автор: мисс_граффити 2.11.2006 2:00

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

Автор: Гость 2.11.2006 2:36

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

Автор: volvo 2.11.2006 3:00

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

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

Смотри...
Отсюда: http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=38226 берешь функцию FromDec

Отсюда: http://forum.pascal.net.ru/index.php?s=&showtopic=2361&view=findpost&p=33955 берешь IsPalindrom

и отсюда: http://forum.pascal.net.ru/index.php?s=&showtopic=3916&view=findpost&p=30660 берешь 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.

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

Автор: Гость 2.11.2006 3:09

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