Const N = 10; var a, S1, S2: Integer; i, Q1, Q2: Byte; begin S1 := 0; Q1 := 0; S2 := 0; Q2 := 0; writeln('Введите ', N, ' чисел:'); for i := 1 to N do begin read(a); if a < 0 then begin S1 := S1 + a; inc(Q1) end; if a > 0 then begin S2 := S2 + a; inc(Q2) end; end; writeln; if Q1 > 0 then begin writeln('Сумма отрицательных чисел: ', S1); writeln('Количество отрицательных: ', Q1) end else writeln('Отрицательных нет'); if Q2 > 0 then begin writeln('Сумма положительных чисел: ', S2); writeln('Количество положительных: ', Q2) end else writeln('Положительных нет') end.
N= 2^{i}
"N" - мощность алфавита.
информационный вес символа алфавита "i"
#1. N=2 в степени i
Так как N=32, отсюда следует, что i=5 битам.
#2. По аналогии выше. Только теперь N=8. А 8 - это 2 в степени 3.
то есть i=3. 3 бита.
#3. 64 символа. (смотреть задачу 1). 2 в 6 степени.
#4. Определим, сколько бит занимает все сообщение.
1/512 Мбайт = 1024/512 = 2 Кбайт. (1 Мбайт = 1024 Кбайт);
2 Кбайт = 2 * 1024 = 2048 байт (1 Кбайт = 1024 байт);
2048 байт = 2048 * 8 = 16384 бит.
Текст состоит из 2048 символов ⇒ занимает 16384 бит ⇒ один символ занимает 16384 : 2048 = 8 бит = 1 байт.
Если для хранения 1 символа алфавита используют 8 бит, согласно формуле (смотреть выше) 2 ^ 8 = 256 символов.
ответ: размер алфавита - 256 символов.