Предмет: Информатика,
автор: channelmrdreamer
Ввести целые числа n и i и вывести целое число, у которого i-й бит
установлен в 1, а все остальные биты совпадают с битами числа n на тех же
позициях. Например, если введены 9 и 1, ответом будет 11. Паскаль
Ответы
Автор ответа:
1
Объяснение:
program ideone;
var
n, i: Integer;
begin
read(n, i);
writeln(n or (1 shl i));
end.
Автор ответа:
0
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, если оно вначале было положительным.
Похожие вопросы
Предмет: Биология,
автор: nik0las82
Предмет: Литература,
автор: smolinroman663
Предмет: Русский язык,
автор: majramdzatiev
Предмет: Алгебра,
автор: юлька0148