Задача заключается в том, чтобы определить минимальное количество выстрелов, которые нужно сделать, чтобы гарантированно потопить корабль. Для решения задачи можно использовать бинарный поиск. Возьмем левую границу left = 1 и правую границу right = n, и будем сокращать границы, пока left <= right. На каждой итерации бинарного поиска будем считать количество выстрелов, которые нужно сделать, чтобы покрыть поле длины n, используя метку длины mid. Для этого разделим поле на блоки длины mid. Если длина корабля k меньше или равна длине блока, то потребуется только один выстрел, чтобы покрыть весь корабль. В противном случае нужно будет сделать дополнительные выстрелы, чтобы полностью покрыть корабль. Для определения количества выстрелов, необходимых для покрытия одного блока, разделим длину блока на длину корабля. Если длина блока делится на длину корабля без остатка, то количество выстрелов равно длине блока, поделенной на длину корабля. Иначе количество выстрелов будет равно длине блока, поделенной на длину корабля, плюс один. Обновим левую или правую границу в зависимости от того, сколько выстрелов потребуется в текущей ситуации. Если количество выстрелов, необходимых для текущего блока, меньше или равно допустимого количества выстрелов mid, то мы можем сократить правую границу, сделав right = mid - 1. В противном случае мы должны увеличить левую границу, сделав left = mid + 1. Повторяем этот процесс до тех пор, пока левая граница left не станет больше правой границы right. В конце, когда left > right, значение right будет содержать минимальное количество выстрелов, необходимых для гарантированного потопления корабля. Возвращаем значение right в качестве ответа. Далее приведен код на языке Pascal, реализующий описанный алгоритм:

pascal

function FindMinimumShots(n, k: Integer): Integer;

var

  left, right, mid, shotsNeeded: Integer;

begin

  left := 1; // левая граница

  right := n; // правая граница

  

  while left <= right do

  begin

    mid := (left + right) div 2; // середина границ

    

    // вычисляем количество выстрелов, необходимых для покрытия блока

    shotsNeeded := (n + mid - 1) div mid;

    

    // проверяем, сколько выстрелов потребуется для текущего блока

    

    if shotsNeeded <= mid then

      right := mid - 1 // сокращаем правую границу

    else

      left := mid + 1; // увеличиваем левую границу

  end;

  

  Result := right; // возвращаем минимальное количество выстрелов

end;



var

  n, k: Integer;

begin

  // считываем входные данные

  ReadLn(n);

  ReadLn(k);

  

  // вызываем функцию для нахождения минимального количества выстрелов

  WriteLn(FindMinimumShots(n, k));

end.

Данный код считывает входные данные - числа n и k, и выводит результат - минимальное количество выстрелов, необходимых для гарантированного потопления корабля. Результат выводится на экран с помощью функции WriteLn.