Question

Ввести целые числа n и i и вывести целое число, у которого i-й бит установлен в 1, а все остальные биты совпадают с битами числа n на тех же позициях. Например, если введены 9 и 1, ответом будет 11. Паскаль

Answer 1

Объяснение:

program ideone;

var

   n, i: Integer;

begin

   read(n, i);

   writeln(n or (1 shl i));

end.

Answer 2

var

 n, c: longint;

 i: integer;

begin

 read(n);

 if (n < 0 ) or (n > 2147483647) then

   writeln('n должно быть от 0 до 2147483647')

 else

 begin

   read(i);

   if (i < 0) or (i > 31) then

     writeln('i должно быть от 0 до 31')

   else

   begin

     c := 1;

     c := (c shl i) or n;

     Write(c)

   end;

 end;

end.

Объяснение:

Если вводить 0 в качестве n, то результат будет равен 2 в степени i. i=31 меняет знак и значение числа n, если оно вначале было положительным.

Answer 3

Вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program SetBit;

var
  n, i, result: Integer;
  
begin
  // Ввод чисел n и i
  Write('Введите число n: ');
  Readln(n);
  
  Write('Введите номер бита i: ');
  Readln(i);
  
  // Установка i-го бита в 1
  result := n or (1 shl i);
  
  // Вывод результата
  Writeln('Результат: ', result);
end.

В этой программе мы считываем два целых числа n и i. Затем мы используем оператор shl для сдвига бита 1 на позицию i и выполняем побитовую операцию or с числом n, чтобы установить i-й бит в 1. Результат сохраняется в переменной result и выводится на экран.