https://0tvet-com.turbopages.org/0tvet.com/s/informatika/question42113964?turbo_uid=AABI-AuSJsk2m53nI9rN4Fm1qydrc_R5Pl8XhUZnClOxIFClT_OPLrDHyvRk4aboEjtkukKH9D78wBXnhTzdQkJcBtZkgQC4DjJdirc%2C&turbo_ic=AAC2NWqLfGWcC1mZDLIrH9o3tflhuVGImOjjYq8S0TJ6uYp3znoaQZSWHkTDLZarXOa5i3vLj01AMdVoYjBzpi8AP_cn654IRO80oWk%2C&parent-reqid=1611927092813663-609930832493936458500226-prestable-app-host-sas-web-yp-157&trbsrc=wb​

1)

2101 в двоичной в форме 100000110101 

для него нужно 12 разрядов, а в 2-х байтовой ячейке их 16 поэто дописываем спереди  4 нуля.

ответ: 0000100000110101.

 

2)

для этого нужно записать число в двоичном виде и записать для него дополнительный код и потом перевести в 16-ю сисему счисления

 0000100000110101  пр.

обратный код это код в котором все 0 заменены на 1, а 1 на 0

 1111011111001010  обр.

чтобы получит дополнительный код нужно прибавить 1

 1111011111001011  доп.

теперь смотрим по 4 разряда и заменяем 1 символом в 16 системе счисления

в 16- системе счисления это F7CB

 

3)F840 = 63552;

1) program ex;
 var i:integer ;mas:array [1..10] of integer;
 begin 
  for i:=1 to 10 do   
  begin    
   mas[i]:=random(9)+1;    
   if (mas[i] mod 2)=0 then     
    mas[i]:=mas[i]+1;   
  end;
 end. 
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (mas[i] mod 2)=0 then     
   mas[i]:=0;   
  else
   mas[i]:=mas[i]*3;
 end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (i mod 2)=0 then     
   mas[i]:=(mas[i]*mas[i]);   
 end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  readln(mas[i]); 
  if (mas[i]<0) then     
   mas[i]:=mas[i]*(-1);   
 end;
end.