Марина заботится о безопасности информации на своем компьютере, поэтому перед использованием флэшки она всегда проверяет ее на наличие вредоносных программ. Антивирусная программа на компьютере Марины за первую минуту просканировала 10 файлов. За каждую последующую минуту количество просканированных файлов увеличивается на 25% по сравнению с предыдущей.
Через сколько минут Марина сможет работать со своей флэшкой, если на ней содержится 427 файлов? Решите задачу средствами электронных таблиц.

Объяснение:

Хочу показать табличный решения подобных задач по шагам.  

Шаг первый. Лена и Аня - сладкоежки. Исключаем капусту и сметану.  

Шаг второй. Аня любит сладкие пироги. Помечаем зеленым цветом для Ани пироги с вареньем. Ване достались пироги с капустой.  

С пирогами разобрались. Помечаем коричневым цветом горизонтали с пирогами.  

Шаг третий. Лене достались блины с вареньем. Помечаем зеленым цветом  для Лены эту клетку, а всю горизонталь - коричневым.  

Шаг четвертый. Осталась одна не закрашенная клетка - для Светы оладьи со сметаной. Закрашиваем ее зеленым цветом.  

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.