Ошибка в программе

[denis228777228]

У меня появился вопрос, почему при компиляции данного кода выводит дополнительные ответ(правильный ответ 17 и числа до него). Если A to число и x to число, если это число будет степенью двойки, то будут дополнительные ответы. Подскажите почему?

Begin
  for var A:=0 to 512 do
    begin
     var B:= true;
  for var x:=1 to 512 do
  begin
    if not ((((x and 23) <>0) and ((x and 17)<>0)) or ((x and 58) =0) or((x and A)=0)) then 
     B:=false;
  end;
  If B then writeln (A);
  end;
end.

[BDA]

Конечно с отступами лучше, чем без них, но еще лучше с верными отступами:

begin
  for var A := 0 to 512 do
  begin
    var B := true;
    for var x := 1 to 512 do
    begin
      if not ((((x and 23) <> 0) and ((x and 17) <> 0)) or ((x and 58) = 0) or ((x and A) = 0)) then 
        B := false;
    end;
    if B then writeln(A);
  end;
end.

Для числа N, являющегося степенью двойки, выражение (x and N) = 0 (где x от 1 до N - 1) всегда истинно. А дополнительные ответы есть не для всех степеней двойки (например, 8 и 32 не печатаются), так что нужно понять, что вообще значит выражение внутри цикла по x.

[digitalis]

Не вникая в суть этого странного задания, можно его чуть-чуть оптимизнуть для красивости:

var x,B: Boolean ; 
Begin
  for A:=0 to 512 do
    begin
        B:= true;
        for  x:=1 to 512 do
               if not ((((x and 23) >0) and ((x and 17)>0)) or ((x and 58) =0) or((x and A)=0)) then
                  begin 
                     B:=false; Break
                  end;
        If B then writeln (A);
    end;
end.

Ну и вдогонку 2 маленьких замечания:
1. При компиляции получается из исходника исполняемый модуль .exe . Весь же вышеописанный беспредел происходит во время выполнения скомпиленой проги. Мало знать умные слова - надо понимать и их смысл.
2. Вот такая простая задачка - замечательный полигон для тренировки работы с отладчиком. Пройти по шагам спорные места, глянуть: а что же там происходит?
Ну и условие задачи не описано - уверен, что 0..17 only is valid ? А искать не пойми чего в странном коде - занятие для учеников телепата или для мазохиста.
(Если это Паскаль АБЦ - то за var извиняюсь, там это вроде в цикл вкрячивать надо. Но сути оно не меняет ).