Известно, что в буклете 12 страниц, на каждой странице по 24 рядка, а в каждом рядку 32 символа. вычислить информационный объем буклета, если известно, что он кодировался однобайтовым способом (т.е для кодирования одного символаиспользовался 1 байт ответ записать в битах

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете

1и 3)var ar: array[1..50] of integer; i,k,min: integer; begin; min: =100; writeln('array: '); for i: =1 to 50 do begin;   ar[i]: =random(10)-5;   write(ar[i]: 4);   if ar[i]=0 then inc(k);   if ar[i]< min then min: =ar[i]; end; writeln; writeln('0: ',k); writeln('min: ',min); end. 2) var ar: array[1..40] of integer; i,k: integer; begin; writeln('array: '); for i: =1 to 40 do begin;   ar[i]: =random(10)-5;   write(ar[i]: 4);   if ar[i]> 1 then inc(k); end; writeln('result: ',k); 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])