Олимпиадная задача Опции

["minem]

В Берляндский ГУ поступила новая обучающая программа. Её надо скопировать на все N компьютеров. Сейчас она установлена только на первом. Компьютеры не объединены в локальную сеть и не снабжены дисководами. Единственный способ передать информацию с одного компьютера на другой - скопировать её, используя нуль-модем (провод, соединяющий два компьютера напрямую). К компьютеру может быть подключен в один момент времени только один нуль-модем. Таким образом, с любого компьютера, где установлена программа, её можно скопировать на какой-то другой (но только на один) всего за один час. В БерГУ есть всего K нуль-модемных шнуров. Ваша задача по заданным N и K найти наименьшее время, необходимое для копирования программы на все имеющиеся компьютеры.

Входные данные
В первой строке записаны через пробел числа N и K (1 <= N <= 10^9, 1 <= K <= 10^9).

Выходные данные
Выведите единственное число - наименьшее время (в часах), необходимое для копирования новой программы на все компьютеры.

Пример

Ввод

8 3


Вывод

4

какие предложения по решению???

[Lapp]

Готово
В формуле я наврал откровенно (спешил слишком - опаздывал в зал, играть ).
Вот правильная:

M=[(N-2^([log2(K)]+1))/K] + [log2(K)] + Sign((N-2^([log2(K)]+1))-[(N-2^([log2(K)]+1))/K]*K)

Не пугайтесь последнего слагаемого (с Sign), он всего лишь означает, что нужно добавить единицу, если деление в первом слагаемом было не нацело . В программе он реализован, ессно, простым оператором if.

Вот исправленный текст программы.

var
  n,k,i,l,m,s:longint;

begin
  ReadLn(n,k);
  l:=Trunc(ln(k)/ln(2))+1;
  s:=1; for i:=1 to l do s:=s*2;
  m:=(n-s) div k;
  if m*k<n-s then Inc(m);
  Inc(m,l);
  WriteLn(m);
end.

Я погонял ее в диапазоне LongInt, все результаты совпадали с результатами Klem4
Единственная разница - время, хотя и не очень значительно в этом диапазоне. Особенно долго программа klem4 работает при больших М и малых К - то есть при больших реальных временах копирования, как и должно быть при моделировании процесса. При М=2111111111 и К=1 она считала 7 сек на моей машине. Моя, ессно, практически мгновенно выдает ответ (там есть один цикл для подсчета степени двойки, но он очень короткий). Если арифметику еще удлинить, то разница только возрастет.
Конечно, процесс нахождения формулы тут представляет некоторый интерес, но только не для программирования.
Еще раз спасибо klem4 за найденную ошибку