Какие из чисел не могут быть записаны в восьмеричной системе счисления, почему: а) 653747; б) 764534; в) 11011001; г) 54730478?

Все кроме варианта г   правилные  так как в вомиричной системе используют цыфры от 0 до 7 тоесть для любого n от 0 до n-1

Из чего что получается, при пробежке от 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])

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.