Решите арифметическую операцию 111011101-1101110110 в двоичной системе счисления.

Question

Информатика: Решите арифметическую операцию 111011101-1101110110 в двоичной системе счисления.

kvas1985 · Accepted Answer

1) var a: array [1..40] of integer;     i, s1, s2: integer; begin      for i := 1 to 40 do      begin           a[i] := random(20);           writeln( a[ , i, ] = , a[i]);           if (a[i] mod 2 = 1) then           begin                s1 := s1 + a[i];                inc(s2);           end;      end;      writeln(s1 / s2); end. 2) var a: array [1..40] of integer;     i, q: integer; begin      for i := 1 to 40 do      begin           a[i] := random(20);           writeln( a[ , i, ] = , a[i]);  ...

MOGZ ответил