Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу, которая инвертирует определенный бит в заданном числе (биты при этом нумеруются с 0, начиная с младших).

Ответ оставил Гость

Var
  n,k:integer;
begin
  Write(Укажите число и номер инвертируемого бита: );
  Read(n,k);
  Writeln(Результат: ,n xor (1 shl k))
end.

Тестовое решение:
Укажите число и номер инвертируемого бита: 573 4
Результат: 557