Файл размером 8кбайт передается через некоторое соединение за 64 секунды. определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 1024 бит в секунду больше.

v1=n/t1

n=8kb=2^3kb=2^13byte=2^16bit

v1=2^16/2^6

v1=2^10=1024

v2=v1=2^10

v2=2^11

t2=n/v2

t2=2^16/2^11

t2=2^5=32c

 

pascalвыделить код

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

32

33

34

35

36

37

38

39

40

uses crt;

const n=10;

var i,j,k: integer; max,min: integer; s,buf: real; f: text;  

const x: array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);

begin  

assign(f,'array.pas');

rewrite (f);

writeln (f);  

writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');

min: =0;

max: =0;

writeln;

writeln;

  for i: =1 to 9 do  

  if x[i] mod 2 = -1 then   if x[i]< x[i+1] then begin

                                              min: =min+x[i];  

                                              write ('минимальное нечетное x[',i,']='   ,x[i]);

                                              end;

  writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}

  for i: =1 to 9 do                                              

  if x[i] mod 2 = 0   then   if x[i]> x[i+1] then begin  

                                              max: =max+x[i];  

                                              write ('максимальное четное x[',i,']='   ,x[i]);

                                              end;

                                              writeln;

                                              writeln;

  s: =0;                                            

  for i: =2 to 9 do

  begin

  s: =s+x[i];    

  writeln('сумма элементов между min нечетным и max четным = ',s: 4: 0);    

  end;

   

  writeln;

  writeln;

   

  {поменять местами максимальное четное с минимальным нечетным}

   

 

end.

Pascalabc.net 3.4.2, сборка 1827 от 08.10.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -50, 50);

  a.println;

  writeln('сумма отрицательных чисел равна ', a.where(t -> t < 0).sum);

  writeln('сумма положительных чисел равна ', a.where(t -> t > 0).sum);

  write('максимальное по модулю число ');

  var (m1, m2) : = (a.min, a.max);

  if abs(m1) > abs(m2) then m1.println

  else m2.println

end.