Сложнейшая задача!!!Помогите!!!

[Dmit5551]

как установить единицу в самый правый нулевой бит в произвольном целом числе, не используя циклов и рекурсии?
Уже неделю сижу с ней, и никак не могу решить(( Помогите,пожалуйста...

[evg_m]

F1 + xor or and

[Dmit5551]

А можно как-нибудь поподробнее немного?!..

[Arigato]

Решение в лоб:

var A: Word;
begin
  Write ('Vvedite A: ');
  ReadLn (A);
  if A or $0001 <> A then A := A or $0001
  else if A or $0002 <> A then A := A or $0002
  else if A or $0004 <> A then A := A or $0004
  else if A or $0008 <> A then A := A or $0008
  else if A or $0010 <> A then A := A or $0010
  ...
  else if A or $4000 <> A then A := A or $4000
  else if A or $8000 <> A then A := A or $8000;
  WriteLn ('New A = ', A);
  ReadLn;
end.

[Dmit5551]

Хм, спасибо... хотелось бы вариант не в лоб)...Есть такие варианты?

[Arigato]

Без циклов и рекурсии что-то не придумаю.
Я бы использовал команду bsf в ассемблерной вставке, но она только начиная с 386, а Паскаль компилирует максимум под 286.

[Dmit5551]

А черт с ним, покажи как решается с циклом или с рекурсией (второе предпочтительнее)...

[Arigato]

Нет уж. Вы показывайте, а мы будем исправлять недочёты.

Уже неделю сижу с ней, и никак не могу решить

Что за неделю было сделано?