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

Var   n,k: integer; begin   write('укажите число и номер инвертируемого бита: ');   read(n,k);   writeln('результат: ',n xor (1 shl k)) end. тестовое решение: укажите число и номер инвертируемого бита: 573 4 результат: 557

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит