В python(пайтон) есть 8 наиболее употребляемых типов данных:  числа ( делится на три вида: целые (int), c плавающей запятой (float) и комплексные (complex) )

 строки (str)

 логический тип (bool)

 тип None (NoneType)

 списки (list)

 кортежи (tuple)

 множества (set)

 словари (dict)

Из них сколько могут иметь в значении несколько элементов? (перечислить).​

Так, адача похожая на предыдущую 

 

Переведем килобайты в биты:

100 килобайт * 1024 байта в килобайте = 102400 байт.

 

переведем в биты:

102400 * 8 бит в байте = 819200 бита в сообщении.

 

Добавим избыточность. Нам по условию надо добавить 20% информации

819200*1.20 = 983040 бит надо передать.

 

Рассмотрим пропускную канала

10 мегабит\секунду. переведем в килобиты:

10*1024 килобит в мегабите = 10240 килобит в секунду.

переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду

разделим, чтобы определить время:

 

983040 бит / 10485760 бит в секунду = 0.09375 секунд

 

ответ: 0.09375 секунд

 

 

 

 

Const PTR = 10;
type razbivka = array[0..PTR] of byte;
var n, i, z, k: byte;
x: razbivka;
procedure p(var x: razbivka; var z: byte);
var i, j, s: byte;
begin
i := z - 1;
s := x[z];
while (i > 1) and ( x[i - 1] <= x[i] ) do
begin
s := s + x[i];
dec(i);
end;
inc( x[i] );
z := i + s - 1;
for j := i + 1 to z do
x[j] := 1;
end;
begin
write('Введите число: ');
readln(n);
write(n,' = ');
z := n;
for i := 1 to z do
x[i] := 1;
for i := 1 to n do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
repeat
p( x, z );
inc(k);
write( n,' = ' );
for i := 1 to z do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
until z = 1;
end.

p.s: нашел в интернете для вас вариант с рекурсией. Сами можете убедиться, что с ней только хуже (по быстродействию уж точно)

const  m = 100;
var  a: array[1..m] of integer;
k, n: integer;
procedure p(j,n: integer);
var  i: integer;
begin if ( n = 0 ) and ( k > 1 ) then
begin  for i := 1 to k do
write( a[i] : 4 );
writeln;
end else for i := j to n do
begin
Inc(k);
a[k] := i;
p( j, n - i );
Dec(k);
end;
end;
begin
write('Введите число: ');
readln(n);
k := 0;
p(1,n);
end.

значения PTR и m можно поставить и больше, но тогда я не ручаюсь)