Выполните арифметические операции и проверьте правильность выполнения: 1)1110 в двоичной системе + 1001 в двоичной системе; 2)1110 в двоичной системе - 1001 в двоичной системе; 3)1110 в двоичной системе + 9 в десятеричной системе; 4)1010 в двоичной системе - 3 в десятеричной системе;

Можешь фоткой отправить?

  есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5   и тогда объявление массивов будет следующим var a: array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0  );   b: array[1..9] of real;    

 

program massiv;

uses crt;

var a: array[1..8] of real =(0.5,12,-18,16,13,5,8,0);

        b: array[1..8] of real;  

        sum: real

        i: integer;

begin

      clrscr;

      write('массив b: ');

      sum: =0;  

      for i: =1 to 8 do 

          begin     

                b[i]: =a[i]/2;  

              sum: =sum+a[i]+b[i];  

              write(b[i]: 2: 2);

        end;  

  writeln;

  writeln('сумма элементов массивов а и b: ',sum);

    writeln(' первый элемент массива а : ',a[1]: 2: 2);

    writeln(' первый элемент массива b : ',b[1]: 2: 2);  

    readkey;

end. 

 

 

вообще признак делимости на 2 можно определить проще. если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0   then writeln('число   делится на 2 нацело' ) else   writeln('число не   делиться на 2 нацело' );

однако если по условию признак, такой то уж ничего не пделаешь 

program evennum;

uses crt;

var n: real;

begin

      clrscr;  

 

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

      readln(n);  

 

      if ((n/2)< > (n div 2)) then writeln('число не делится на 2 нацело' )

                  else   writeln('число   делится на 2 нацело' );  

    readkey;      

 

end.