Используя двоичное счисление, произвести вычитание путем сложения дополнений: а) 24-15; б) -10-48; в) 17-31. проверить результат вычислений путем перевода его в десятичную систему.

Program pas; var a: array[1..30] of integer; i, k: integer; s: real; begin s: =0; k: =0;   for i: =1 to 30 do               readln(a[i]);                                 for i: =1 to 30 do                       begin                           if (not(a[i]mod 2=0)) then                           s: =s+a[i];                           inc(k);                       end;                         s: =s/k;                       write(s: 4: 0); end.

Var s,k: integer; // описали переменные, которые будут использованы в программе: s и k целые числаbegins: = 500; // переменной s присвоили начальное значение 500for k: = 4 to 10 do// организовали цикл для k от 4 до 10 с шагом 1. то есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, k=10)s: = s - 2*k; // для каждого k поочередно считаем s: // k=4   --   s=500-2*4=492// k=5   --   s=492-2*5=482// k=6   --     s=482-2*6=470 // k=7   --   s=470-2*7=456 // k=8   --     s=456-2*8=440 // k=9   --   s=440-2*9=422 // k=10 --   s=422-2*10=402 write (s); // выводим на экран итоговое значение s: 402end.