Dmitry55Помогите новичку в программировании...

Установить в единицу самый правый нулевой бит в произвольном целом числе, не используя циклов и рекурсии? Например, 101011->101111 или 0111->1111.

var A: integer;

begin
write ('Vvedite A: ');
readln (A);

A := A OR (A+1);

writeLn ('New A = ', A);

end.

Правильно ли решение??

Если вопрос только в правильности, то нет.

01100 + 1 = 01101 or 01100 = 01101

Dmitry55Но в вашем примере самый правый нулевой бит установился в единицу !!?

Ой...извеняюсь...бегло читал задание подумал чёто- про самый левый) ну тогда такой вариант

01101 + 1 = 01110 or 01101 = 01111

Вобще решение очень просто...но т.к. вы не спрашивали его, а только проверить то собсна и писать не буду...малоли сами хотите к нему придти)

Тву...я как алкаш))) самый правый НУЛЕВОЙ бит) тогда правильно

Яростный Мечприбавить единицу, только и всего
Or необходим...подумайте сами почему!

Яростный МечDemon9151Яростный Мечприбавить единицу, только и всего
Or необходим...подумайте сами почему!В формулировке задачи не сказано , что остальные биты обязательно должны остаться без изменение. Главное, чтоб искомый бит стал единицей. :)

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

студентикЕсли нужно в 1 установить самый правый бит, то битовое отрицание источника not. Это если неважное содержимое самого источника. Если нужно по условию обеспечить сохранность остальных двоич. разрядов, то банально проход по всем битам числа начиная справа без цикла, но с количествоим if then равным числу битов, т.е. банальное раскрытие цикла, только при условии, что искомое число ограничено размером регистра.

Это шутка такая?) или вы как я посчитали правый за левый...речь идёт про самый нижний нулевой бит...а не самый верхний...и предложенная вами реализация не очень скажем красива)

студентикMesserShmitстудентикDemon9151студентикЕсли нужно в 1 установить самый правый бит, то битовое отрицание источника not. Это если неважное содержимое самого источника. Если нужно по условию обеспечить сохранность остальных двоич. разрядов, то банально проход по всем битам числа начиная справа без цикла, но с количествоим if then равным числу битов, т.е. банальное раскрытие цикла, только при условии, что искомое число ограничено размером регистра.

Это шутка такая?) или вы как я посчитали правый за левый...речь идёт про самый нижний нулевой бит...а не самый верхний...и предложенная вами реализация не очень скажем красива)

Отнюдь это не шутка, это моя ошибка:) Значит ответ уже дан в начале топика.

Ясн...ну я сначала тоже прочитал и по невнимательности или мнимой очевидности подумал что нужно самый верхний(левый) бит установить в единицу)

А левый бит был был интереснее...)

Полностью согласен :)