Есть 6 сетевых каналов, для связи с одним сервером передавать 512, 128, 16, 1024, 256 и 2048 килобайт в секунду, соответственно. по каждому каналу может быть передано не более одного файла. по нескольким каналам могут одновременно передаваться файлы. требуется передать на этот сервер файлы с объемами 48 мегабайт, 13 мегабайт и 25 мегабайт. через какое минимальное количество секунд все файлы окажутся на сервере? в качестве ответа укажите одно целое число.

У меня получилось, что 24 секунды.

Это если взять
2048+16 для первого файла
1024+256 для второго
512+128 для третьего

48*1024/2064=23,81 сек
25*1024/1280=20 сек
13*1024/640=20,8 сек

Вся информация, которую обрабатывает компьютер должна быть представлена двоичным кодом с двух цифр 0 и 1. Эти два символа принято называть двоичными цифрами или битами. С двух цифр 0 и 1 можно закодировать любое сообщение. Это явилось причиной того, что в компьютере обязательно должно быть организованно два важных процесса: кодирование и декодирование.Кодирование – преобразование входной информации в форму, воспринимаемую компьютером, т.е. двоичный код.Декодирование – преобразование данных из двоичного кода в форму, понятную человеку.С точки зрения технической реализации использование двоичной системы счисления для кодирования информации оказалось намного более простым, чем применение других

1.

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (a<b) and (a<c)

 then writeln('Произведение 2 наибольших чисел: ',b*c);

if (b<a) and (b<c)

 then writeln('Произведение 2 наибольших чисел: ',a*c);

if (c<b) and (c<a)

 then writeln('Произведение 2 наибольших чисел: ',b*a);

end.

2.а)

program raf105;

var a,i,b:integer;

begin

write('Введите число: ');

readln(a);

for i:=1 to a do

 if ((a mod i)=0) and ((i mod 2)<>0)

   then b:= b+i;

writeln('Сумма нечётных делителей введённого числа: ',b);

end.

б)

program raf105;

var a,a2,i,j,b:integer;

begin

write('Введите меньшее число: ');

readln(a);

write('Введите большее число: ');

readln(a2);

for j:=a to a2 do

begin

 for i:=1 to j do

   if ((j mod i)=0) and ((i mod 2)<>0)

     then b:= b+i;

writeln('Сумма нечётных делителей числа ',j,' равна: ',b);

b:= 0;

end;

end.

Язык программирования PascalABC