1. Определим, какой объем занимает один символ.
5 Кб = 5×1024 байт.
5×1024 / 8192 = (5×1024) / (8×1024) = 5/8 (б).
1 б = 8 бит, поэтому 5/8 б = 5 бит.
2. Определим мощность алфавита с информационной емкостью символа 5 бит.
N = 2⁵ = 32
Ответ: 32 символа
Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти
Program zadaha;
var a,b,c,d,sr:integer;
begin
Writeln('Введите 4 целых числа');
readln(a,b,c,d);
sr:=(a+b+c+d)/4;
readln(sr);
Writeln('sr=',sr);
end.
var
n, i, k: integer;
a, b: real;
begin
read(n, a);
k := 0;
for i := 1 to n do
begin
read(b);
if (b < a - 8) or (b > a + 8) then
k := k + 1;
end;
if k > 0 then
write(k)
else
write('нет');
end.
1.Топор
2.Лейка
3.Прорубь
4. И стали ловить рыбу... не видно
Может быть сеть