m - массив элементов
n - количество элементов в множестве (длина массива)
e - конечный массив
e=[]
m=[0, 1, 2, 3, 4]
n=len(m)
k=2
for i in range (n**k):
j=i
c=[]
while j>0:
c.append(m[j%n])
j//=n
c=c+[m[0]]*(k-len(c))
e.append(c)
print(e)
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
Var x, p: integer;
begin
x:= 1;
p:=1;
repeat
p:= p*x;
x:= x + 2;
until x<11;
end.
2 т.к. 3к байтов = 24к битов
И 24к делим на 5*32*80=12к
n мощность алфавита
i инф объём
N=2i(в степени )
I инф объём одного сообщения
K колич символов в сообщении
I= K*i
K = I делить на i