Имеется файл с текстом из 10 000 символов. текст нужно записать на флешку, на которой имеется свободная область памяти 10 кбайт. поместится ли текст?

Поместится ли текст? нет текст не поместится

10 000 символов это 10 000 бит. в байте 8 бит. В килобайте 1024 байт. Посчитаем:
10 Kb=8*10*1024=81920.
а нужно всего 10 тысяч. итог: помкстится

9877

Объяснение:

Ну давайте вместе решим. Что такое 8? Это 2 в 3 степени. Тогда что такое 8^4024? Это (2^3)^4024 или 2^12072

4^1605 аналогично 2^3210.

Ну и 2^1024

126 в бинарной системе это 0111 1110

Теперь попробуем это вместе сложить.

Если призадуматься, то 2^N это значит в бинарной записи на N-той позиции стоит единица.

Значит 2^12072 это 1 и 12071 нулей

Далее у нас отнимается 2^3210. В оригинальном числе на этом позиции 0, значит нам следует занять числа и в итоге получается что у нас с 12070 позиции по 3210 будет стоять единицы.

Далее добавляется одна единица на 1024ой позиции.

На данный момент у нас 8861 единиц.

Чтобы отнять 126 нам надо будет срезать одну единицу на 1024ой позиции чтобы занять в меньшие биты. Однако, с 1023 по 1 позицию у нас будут стоять единицы.

8861 - 1 + 1023 = 9883

Однако 126 имел единицы в количестве 6 штук.

9883 - 6 = 9877

ответ 9877

Program adikalok;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,min,max:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
  if min<max then //min находится левее чем max
    begin
      for i:=max downto min+2 do
      a[i]:=a[i-1];
      a[min+1]:=0;    
     end
       else //min находится правее чем max
    begin
      for i:=max to min do
      a[i]:=a[i+1];
      a[min]:=0;    
     end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.