Для кодирования 128 символов необходимо
128=2^7
7 бит на каждый символ
в тексте 2000 символов, на их кодирование надо
7*2000=140000 бит=914000/1024)кбит=13.68 кбит-округляем до целых
значит 14кбит
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.