Пропускная способность некоторого канала связи равна 128000 бит/с. сколько времени займёт передача файла объёмом 500 кбайт по этому каналу?

получается что в сек пропускает 15.625 кб

теперь делим 500 кб на 15.625

получаем

32 сек

 

ответ:

объяснение:

var

    num, num_work: integer;

    a1, a2, a3, a4: integer;

begin

    num: =5225;

    num_work: =num;

    a1: =num_work div 1000;

    num_work: =num_work mod 1000;

    a2: =num_work div 100;

    num_work: =num_work mod 100;

    a3: =num_work div 10;

    num_work: =num_work mod 10;

    a4: =num_work;

   

    if ((a1 = a4) and (a2 = a3)) then writeln('да') else writeln('нет');

end.

//pascal abc.net v3.0 сборка 1111 const   n=10; var   ar: array[1..n] of integer;   i,k: integer; begin   randomize;   k: =0;   writeln('array: ');     for i: =1 to n do     begin;       ar[i]: =random(1000,2000);       write(ar[i]: 6);       ar[i]: =ar[i] div 10;       if not odd(ar[i] mod 10) then inc(k);     end;   writeln;   writeln('res=',k); end.пример работы кода: array:   1812   1641   1666   1305   1624   1385   1463   1376   1941   1188res=8