до сегодняшнего вечера

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

пщояк 17 27 16 33 17

нщёп 15 27 7 17

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.