Файл размером 60кб передается через некоторое соединение со скоростью 3072 бита в секунду.определите размер файла (в кб), который можно передать за то же время через другое соединение со скоростью 256 бит в секунду.в ответе укажите одно число-размер файла в кб.единицы измерения писать не нужно

1 байт = 8 бит    1024 байта = 1 килобайт
1)3027:8=378,375 байтов - скорость

378,375:1024=0,3695068359375 килобайтов - скорость

60:0,3695068359375=162,3785926660059 секунд будет скачиваться 1 файл

2)162,3785926660059:256=0,6342913776015855(бит)-2 файл
3)0,6342913776015855:8:1024=7,742814667988105e-5(КилоБайтов)
ответ файл весит 7,742814667988105e-5 килобайтов

Например, мы делаем часто чай.
1. Войти на кухню.
2. Открыть шкаф.
3. Взять чашку. 
4. Поставить ее на стол. 
5. Закрыть шкаф.
6. Взять чайник.
7. Включить газ.
8. Зажечь спичку.
9. Зажечь газ в конфорке с спички.
10. Поставить чайник на огонь.
11. Открыть шкаф.
12. Взять сахарницу.
13. Закрыть шкаф.
14. Открыть ящик. 
15. Взять ложку.
16. Закрыть ящик.
17. Набрать в ложку сахар.
18. Положить сахар в чашку.
19. Положить ложку на стол.
20. Открыть шкаф.
21. Взять пакетик чая.
22. Закрыть шкаф.
23. Положить пакетик чая в чашку.
24. Когда чайник закипел, выключаем конфорку.
25. Берем чайник.
26. Наливаем воду в чашку.
27. Ставим чайник.
28. Берем ложку.
29. Мешаем.
30. Кладем ложку на стол.
31. Пьем. 

Var a:array[1..7]of integer;
     p3,p5,s,i,k,min,n:integer;
     srz:real;
begin
 p5:=1; p3:=1; min:=25;
 for i:=1 to 7 do
  begin 
   read(a[i]);
    if a[i]<>0 then
     begin
      if a[i] mod 5=0 then p5:=p5*a[i];
      if a[i] mod 3=0 then p3:=p3*a[i];
      if a[i] mod 2=0 then
       begin
        s:=s+a[i];
        k:=k+1;
       end;
      if a[i]<min then
       begin
        min:=a[i];
        n:=i;
       end;
     end;
  end;
 srz:=s/k;
 writeln;
 write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.