Дано натуральное чсло n.составте программу, которая определяет, является ли последовательность цифр этого числа ( при просмотре их справа налево) по возрастанию.

var  x, n: integer; begin  write('n = ');   readln(n);   x : = n mod 10;   n : = n div 10;   while n > 0 do  begin    if n mod 10 < x then    begin      writeln('последовательность по возрастанию');       readln;       exit;     end;     x : = n mod 10;     n : = n div 10;   end;   writeln('последовательность по возрастанию');   readln; end.

Нужно все перемножить и еще умножить на кодировку. и сразу переведем в кбайт поделив на 8*1024*1024 i=k*i i=32*32*35*8/8*1024*1024=35 кб ответ 4. если тебе интересно, как можно посчитать без калькулятора, то оставь комментарий под этим ответом, я тебе объясню необходимо представить все данные в виде двойки в n степени: страницы, строки, символы, кодировка. 32 - это 2^5 степени, вы должны были учить на первых уроках информатики значение двойки от 1 степени до 10. 35 - в степени двойки не представляется, оставим так. ее будем умножать с остальными цифрами. 8 бит - 2^3 формула нахождения информационного объема  i=k*i k - кол-во символов, i - кодировка подставляем i=2^5+2^5*35+2^3 при умножении степеней с одинаковым основанием основание остается прежним, показатели складываются i=2 в 13 степени *35 бит переведем в байт. в 1 байте - 8 бит, это 2^3 степени, следовательно отнимем 3 от нашей степени i=2 в 10 степени *35 переведем в кбайт. в 1 кбайте - 1024 байт. а 2^10 это 1024. отнимаем i=35 осталось 35, так как степени ушли, а любое число в нулевой степени равно 1 вот так получилось 35 кбайт.

Const     n = 13; var     a: array[1..n] of integer;     i,j,min,b: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i])       end; writeln; write('после сортировки: '); for i: = 1 to n do       begin       min: =i;       for j: =i+1 to n do               if a[j] < a[min] then min: =j;       b: =a[min];       a[min]: =a[i];       a[i]: =b;       write(' ',a[i])       end; readln; end.