Несложная, но интересная логическая задачка на Pascal'е

[meriguan02]

Находится в этой записи.
P.S. простите за форматирование, а точнее его отсутствие

@темы: Интернет

Comments

[O]

Самое очевидное:

var i:integer;
begin
   for i:=1 to 6 do
   begin
      writeln(((i and 1)*127) or+ 1 );
   end;
end.

Если ещё подумать, можно и от умножения избавиться, но мне лень.

upd: ошибочка вышла, поправил