Сколько символов содержит сообщение, записанное с 256-ти символьного алфавита, если его объем составил 1\256 часть мегабайта?

N-  ? i = 1\256 мбайт k = log     256 = 8 бит n=i  \  k  1) log 256 = 8 бит/символ = 1 байт/символ 2) 1024 кбайт / 256 * 1024 = 4096 байт 3) 4096 байт \ 1 байт\символ = 4096 символов

256=2 в 8 степени, значит один символ имеет вес 8 бит или один байт 1/256 часть мегабайта=4 килобайта= 4*1024=4096 байт. значит сообщение содержит 4096/1=4096 символов ответ: 4096

Выделите на листе прямоугольную область ячеек с левым верхним углов в a1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями. sub abc()       a = selection.value       for i = 1 to ubound(a, 1)               amin = a(i, 1): amax = amin               jmin = 1: jmax = 1               for j = 2 to ubound(a, 2)                       if amin > a(i, j) then                               amin = a(i, j): jmin = j                       end if                       if amax < a(i, j) then                               amax = a(i, j): jmax = j                       end if               next j               cells(i, jmin).value = amax               cells(i, jmax).value = amin       next i end sub

Var    a: array [1..100] of integer;         n, i, j: integer;     fout: text; begin     assign(fout, 'output.txt');     rewrite(fout);     n : = 10; //n - длина массива     for i : = 1 to n do         a[i] : = random(100);     for i : = 1 to n do         write(fout, a[i], ' ');     writeln(fout);     j : = 1;     for i : = 2 to n do         if a[i] > a[j] then             j : = i;     writeln(fout, 'max = ', a[j], '   max_ind = ', j);     j : = 1;     for i : = 2 to n do         if a[i] < a[j] then             j : = i;     writeln(fout, 'min = ', a[j], '   min_ind = ', j);     close(fout); end.