Вкаком виде будет храниться в компьютере десятичное число 10 (с индексом 10) в формате целого неотрицательного числа и целого числа со знаком?

1010

01010                       

                                                                                                                                                       

Вроде это   program lab1_2;   const   n= 5; m=5;   var   a: array[1..n,1..m] of real;         s,i,j: integer;   begin   randomize;       for i: =1 to n do       begin         for j: =1 to m do           begin           a[i,j]: =random(10);           write(a[i,j]: 4);           end;         writeln;       end;   s: =0;     for i: =1 to n do begin     for j: =1 to m do begin       if (a[i,j] mod 2) = 0 then begin       s: =s+a[i,j];       end;     end;       end;   writeln('summa: ',s);     readln; end.(если ошибся сори! )

Из чего что получается, при пробежке от 100 до 999 [184, 129] [275, 129] [366, 129] [390, 129] [399, 1812] [457, 129] [481, 129] [548, 129] [572, 129] [639, 129] [663, 129] [754, 129] [845, 129] [920, 112] [930, 123] [936, 129] [993, 1812] общее кол-во {129=> 13, 123=> 1, 1218=> 0, 1812=> 2, 312=> 0, 912=> 0, 112=> 1} ответ 4 числа код def avtomat2(chislo)       return 0 if ! chislo.between? (100, 999)       s = chislo.to_s       a = s[0].to_i + s[1].to_i       b = s[1].to_i + s[2].to_i       s = [a, b].max.to_s + [a, b].min.to_s       return s.to_i end def zadanie(min, max, numbers)       b = hash.new       numbers.each do |w|             b.store(w, 0)       end       for i in min..max             r = avtomat2(i)             if numbers.include? (r)                   p [i,r]                   b[r] += 1             end       end       return b end # # # примеры применения p zadanie(100, 999, [129, 123, 1218, 1812, 312, 912, 112])