перевести код с паскаля на пайтон
var i,max,n:integer; d,c:array[1..15] of integer;

procedure recurs(k,s:integer);
var f,q,j:integer;
begin
f:=0;
for j:=1 to n do
if d[j]>=k then
begin
q:=(d[j]-k+1)*c[j];
f:=d[j]; d[j]:=0;
recurs(k+1,s+q);
d[j]:=f; f:=1;
end;
if f=0 then
if max end;

begin
read(n);
for i:=1 to n do read(d[i],c[i]);
recurs(1,0);
writeln(max);
end.

Объяснение:

Поскольку объем сжатого файла составляет 50% (т.е. половину) исходного, то выигрыш от архивации в объеме составляет 40/2 = 20 Мбайт. А проигрыш во времени из-за архивации составляет 10+2 = 12с.

Найдем выигрыш во времени от того, что 20 Мб не нужно передавать.

20 Мбайт = 20×2²⁰ байт = 20×8×2²⁰ бит. При скорости передачи данных, равной 2²⁰ бит/с, такой объем будет передан за  (20×8×2²⁰)/2²⁰ = 160с.

Итого, при А мы выигрываем 160с и проигрываем 12с. Следовательно А выгоднее на 160-12 = 148с

Спо­соб А.

Общее время скла­ды­ва­ет­ся из вре­ме­ни сжа­тия, рас­па­ков­ки и пе­ре­да­чи. Время пе­ре­да­чи t рас­счи­ты­ва­ет­ся по фор­му­ле t = Q / q, где Q — объём ин­фор­ма­ции, q — cко­рость пе­ре­да­чи дан­ных.

Найдём сжа­тый объём: 40 * 0,5 = 20 Мбай­таПе­ре­ведём Q из Мбайт в биты: 20 Мбай­та = 20 * 2²⁰ байт = 20 * 2²³ бит.Найдём общее время: t = 10 с + 2 с + 20 * 2²³ бит / 2²⁰ бит/с = 12 + 20 * 2³ = 172 с.

Спо­соб Б.

Общее время сов­па­да­ет с вре­ме­нем пе­ре­да­чи: t = 40 * 2²³ бит / 2²⁰ бит/с = 40 * 2³ с = 320 с.

Видно, что спо­соб A быст­рее на 320 - 172 = 148 с.

ответ: A148.