Пропускная способность канала связи 100 мбит/с. уровень шума пренебрежимо мал (например, оптоволоконная линия определите, за какое время по каналу будет передан текст, информационный объем которого составляет 100кб

Скорость в мб/c 100/8 = 12,5 мб/c переведем в кб/с = 12,5 * 1024 = 12800 кб/с тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд

//писал на скорую руку, должно все правильно работать var a,plus,minus,d: integer; c: array[1..50] of integer; begin plus: =0; minus: =0; for a: =1 to 50 do c[a]: =random(20)-10; //заполняем массив рандомо for a: =1 to 50 do//проверям условие if ((c[a]> 0) and (c[a]< > 0)) then plus: =plus + 1 else if ((c[a]< 0) and (c[a]< > 0)) then minus: = minus + 1; writeln(plus,' '); //кол-во полож writeln(minus,' '); //кол-во отриц if (plus> minus)then writeln('положительных') else writeln('отрицательных'); end.

Const   nn=100; { предельное количество номиналов банкнот } type   bnk=longint; var   nom,res: array[1..nn] of bnk;   i,n,koln: integer;   sum: bnk; procedure sort(n: integer); var   i,j: integer;   t: bnk; begin   for i : = 1 to n-1 do       for j : = 1 to n-i do           if nom[j] > nom[j+1] then           begin t : = nom[j]; nom[j] : = nom[j+1]; nom[j+1] : = t end end; begin   readln(n);   for i: =1 to n do read(nom[i]);   readln(sum);   sort(n);   koln: =0; i: =n;   while sum> 0 do begin       while nom[i]> sum do dec(i);       inc(koln); res[koln]: =nom[i];       sum: =sum mod nom[i];       if (sum< nom[1]) and (sum< > 0) then begin sum: =0; koln: =-1 end   end;   if koln=0 then koln: =-1;   writeln(koln);   for i: =1 to koln do write(res[i],' ');   writeln end. тестовые решения контрольный пример: 5 1 3 7 12 32 40 3 32 7 1 еще один пример: 8 1 5 10 50 100 500 1000 5000 4586 6 1000 500 50 10 5 1