Var a: array of integer; i, n, x, digit: integer; b1, b2: boolean; begin readln(n); setlength(a, n); for i := 0 to n - 1 do readln(a[i]); b1 := true; x := 1; digit := x; while b1 do begin if b2 then digit := x; inc(x); b2 := true; for i := 0 to n - 1 do begin if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end else if a[i] mod x <> 0 then begin b2 := false;break; end end; end; write(digit); end.
1) 64=2^6, те "вес" 1 символа 6 бит. 1500*6=9000 бит весь текст 9000=1125 байт=приблизительно 1,1 Кбайт
2) 32=2^5, те информационный объем об 1 выпавшем шаре=5 бит. Если получено 20 бит информации, то 20/5=4 шара выпало
3) Количество пикселей в изображении=640*480=307200 пикселей 100 Кбайт переводим в биты=100*1024*8=819200 бит Тогда 1 пиксель "весит" 819200/307200 =2, 7 бит, те 3 бита Количество цветов в палитре N=2^3=8
4) 4=2^2, те 1 px весит 2 бита. В изображении 300*200 =60000px. Изображение весит 60000*2=120000 бит (это объем видеопамяти) Если в палитре 256 цвета 256=2^8, то 1px в такой палитре весит 8 бит. 120000/8=15000 px в изображении. (например 150х100)
