Program n1;
const n=100;
var a: array [1..n] of integer;
i,k,sum,temp: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
write('введите ',i,' элемент: ');
readln(temp);
if temp=0 then break;
if temp mod 8=0 then
begin
a[i]:=temp;
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф: ',sum/k);
end.
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Количество комбинаций (чисел) можно посчитать так 2^12 = 4096
Переведем информационный объем сообщения из килобайт в биты:
I = 1.5*1024*8=12288.
i=3 (2^3=8) бита приходится на один символ:
К=I/i=12288/3=4096 символов.
Ответ: 4096 символов.