Var a: array[1..8] of integer; i,n: integer; begin for i: =1 to 8 do readln(a[i]); for i: =1 to 8 do begin if a[i] mod 2=0 then inc(n); end; writeln(n); end.
Спасибо
Ответ дал: Гость
мощность n=16
n=2^i где i-количество информации в символе
тогда i=4
информационный объем i равен i*k где k - количество символов в тексте
Популярные вопросы