двоичная запись Опции

[MI666]

Найти все простые числа не превосходящие заданного N, двоичная запись которых представляет собой симметричную последовательность нулей и единиц (начинающуюся единицей!)

[volvo]

MI666

Код

{ Эта функция проверяет, является ли число простым }
function isPrime(a: word): boolean;
var i: integer;
Begin
isPrime:=false;
if not odd(a) and (a<>2) then exit;
i:=3;
while i <= sqrt(a) do
 begin
   if a mod i = 0 then Exit;
   inc(i,2)
 end;
isPrime:=true
End;

+ в ФАКе есть функция перевода числа в двоичную систему счисления + здесь - функция, проверяющая, является ли строка палиндромом. Что еще нужно?

Учитесь пользоваться поиском...