интересная задачка для программистов

[NuM]

есть код на паскале

Код: Выделить всё

for i:=1 to 6 do
begin
  case i of
    1,3,5:x:=1;
    2,4,6:x:=128;
  end;
  writeln(x);
end;

нужно представить его в виде

Код: Выделить всё

for i:=1 to 6 do
begin
  writeln(формула);
end;

где формула - выражение, состоящее из двух операций, так, чтобы результат выполнения был одинаковым.

p.s.Уважаемые модераторы, переместите пожалуйста тему обратно, я знаю решение этой задачки, а запостил на форум ее для того, чтобы другие попробовали реешить эту головоломку

[Хыиуду]

Переместил. Поиск решения занял секунд пять.

[NuM]

Переместил. Поиск решения занял секунд пять.

простите за вопрос, но в вашем решении точно используется только две операции?

[airyashov]

насчет 2 не знаю, но с 3 легко

[NuM]

насчет 2 не знаю, но с 3 легко

в этом и заключается сложность

[airyashov]

тогда нужен список операций какие можно использовать

[NuM]

тогда нужен список операций какие можно использовать

+, -, *, div, mod, and, or, xor, not, shr, shl и скобки

[airyashov]

(i*127) and $81

[NuM]

(i*127) and $81

правильное решение! а можете рассказать как вы до него дошли?