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

[NuMeR]

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

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;

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

[__STDC__]

for i:=1 to 6 do
begin
  if (i mod 2 = 1) then x := 1
  else x := 128;
end;

?

или если вы говорите формула..

		writeln(128-i mod 2 * 127);

[NuMeR]

__STDC__, нужно чтобы код подходил под этот шаблон
for i:=1 to 6 do
begin
writeln(формула);
end;
т.е. нужно что-то вписать вместо "формула", никаких if case и т.д. использовать нельзя

[__STDC__]

выше посмотрите

[NuMeR]

Сообщение от __STDC__

writeln(128-i mod 2 * 127);

в этой формуле 3 операции(-, mod, *) а нужно 2

[__STDC__]

значит так тоже не покатит))

		writeln(128 shr (i mod 2 * 7));

я не уверен что это принципиально возможно с двумя операциями...

[NuMeR]

это возможно, решение у меня есть, его я нашел почти случайно и просто хочется понять каким образом до него можно дойти логически, поэтому и написал на форум

[__STDC__]

Т.е. вам хочется чтобы другие до него дошли логически?

[NuMeR]

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

[Impuls1989]

А такое вообще возможно? Такое возможно в си. Там есть тернарная операция ?:
Как вариант можно попробовать побитовыми операциями. Если есть гениальный ответ - выкладывайте, обсудим вместе.