Числа 1) 2101. 2)-2101. 3)f840 1. получить двоичную форму внутреннего представления целого числа в 2-х байтовой ячейке. 2. получить шестнадцатеричную форму внутреннего представления целого числа в 2-х байтовой ячейке. 3. по шестнадцатеричной форме внутреннего представления целого числа в 2-х байтовой ячейке восстановить само число

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.

var a,i,sum: integer;

s: string;

begin

  writeln('введите 4-ёх значное число');

  readln(a);  

  s : = inttostr(a);

  for i : = 1 to s.length do

    if i mod 2 = 1 then

      sum : = sum + strtoint(s[i]);

  writeln('сумма: ',sum);

end.

2.

var n,y: integer;

begin

  writeln('введите число n');

  readln(n);

  if n = 0 then

    y : = 0

  else if n mod 2 = 0 then

    y : = -1

  else if n mod 2 = 1 then

    y : = 1;

  writeln('y = ',y);

end.

Program  proga; var  str1,str2,str3: string; input: text; begin assign(input,'file.txt'); reset(input); readln(input,str1);   readln(input,str2);   readln(input,str3); if(length(str1)> length(str3)and length(str3)) then writeln('1  строка  самая  длинная'); else if length(str2)> length(str3) and  length(str1) then   writeln('2 строка самая длинная');   else if length(str3)> length(str1) and length(str2) then writeln('3  строка  самая  длинная'); close(input); end. p.s файл со строками надо предварительно создать в папке с exe файлом программы