запишем условие задачи: К=800, N=128, I=?
решение: вычислим вес одного символа используемого алфавита
128=2^i, 2^7=2^i, i=7 бит
подсчитаем количество информации
I=K*i=800*7=5600 бит=700 байт=0,68 Кб
1. Конъюнкция
2. Дизъюнкция
3. Инверсия
4. Импликация
5. Эквиваленция
Я не знаю, в каком порядке приложение распределит фото, но надеюсь, что всё понятно
// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
Ерунда, а не задача.... трижды одно и то же разными словами.