Решить . 1) сколько времени потребуется, чтобы передать информацию объёмом 715860 байт, при эффективной скорости передачи информации 8730 bps? 2)с какой скоростью осуществляется передача информации объёмом 695 кб, если передача длится 11 мин. 35 сек.? 3)с какой скоростью осуществляется передача информации объёмом 3550 кб, если передача длится 11 мин. 50 сек.? заранее .

1)
8730 bit/s
715860*8=5726880 bit
5726880 bit / 8730 bit/s = 656 sec

2)
695Kb * 1024 = 711680 byte
711680*8=5693440

(11*60)+35 = 695 s
5693440 bit / 695 s = 8192 bit/s

3)
3550Kb * 1024 = 3635200 byte
3635200 * 8 = 29081600 bit

(11*60)+50 = 710 s
29081600 / 710 = 40960 bit/s

Задача 1 (скриншот 1)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-20, 35)

def summ_less(hight_border, array):

result = 0

for item in array:

 if item < hight_border:

  result += item  

return result  

def count_high(low_border, array):

result = 0

for item in array:

 if item > low_border:

  result += 1

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(summ_less(11, newlist))

print(count_high(25 ,newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Задача 2 (скриншот 2)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-10, 10)

def mulptiply_multiples(divider, array):

result = 1

for item in array:

 if item % divider == 0 and item != 0:

  result *= item

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(newlist)

print(mulptiply_multiples(3, newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Объяснение:

Cайт ломает Python-код, ниже приложены скриншоты исходников для восстановления кода. Если вам очень нужно именно скопировать и не париться, я могу залить обе задачи на pastebin.com и скинуть в комментарии к ответу ссылку

function Nod(a, b: integer): integer;

begin

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 Result := a

end;

procedure ArrIn(var a: array of integer) := a := ReadArrInteger(a.Length);

procedure ArrOut(a: array of integer) := a.Println;

function NodArr(a: array of integer): integer;

begin

 var n := a.Length;

 if n = 1 then

   Result := a[0]

 else

 begin

   Result := Nod(a[0], a[1]);

   for var i := 2 to n - 1 do

     Result := Nod(a[i], Result);

 end;

end;

begin

 var n := ReadInteger('Число элементов в массиве 1:');

 var a := new integer[n];

 Writeln('Введите элементы массива 1');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 2:');

 SetLength(a, n);

 Writeln('Введите элементы массива 2');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 3:');

 SetLength(a, n);

 Writeln('Введите элементы массива 3');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

end.