Склавиатуры вводится число n , а за ним n целых значений элементов массива посчитайте кол-во четных чисел стоящих на нечетных местах в массиве

Var n,i,s: integer;       a: array[1..100] of integer; begin read(n); for i: =1 to n do begin       read(a[i]);       if    ((i mod 2)=1) and ((a[i] mod 2)=0) then            s: =s+1;       end; writeln(s); end.

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;

   

 

 

 

type cl = class  a: integer;   constructor create(b: integer);   procedure p; end; constructor cl.create(b: integer); begin  a : = b; end; procedure cl.p; begin  if (a div 100 > 0) and (a > 0) then  begin      a : = a - 1;       writeln('new a  = ', a);   end; end; var  obj: cl;   a : integer; begin  write('a = ');   readln(a);   obj : = cl.create(a);   obj.p;   readln;   obj.destroy; end.