Чемпионат по шашкам Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Чемпионат Берляндии по стодвадцатиодноклеточным шашкам среди школьников планир...

Чемпионат по шашкам Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Чемпионат Берляндии по стодвадцатиодноклеточным шашкам среди школьников планируется провести по «нокаут-системе», то есть после каждой партии проигравший прекращает выступление в чемпионате, а победитель проходит дальше (по правилам стодвадцатиодноклеточных шашек ничьи невозможны). После того, как остаётся один участник, турнир завершается и оставшийся участник объявляется чемпионом. Напишите программу, которая вычисляет, какое наименьшее количество партий потребуется провести для того, чтобы определить победителя, если в соревновании приняло участие N школьников. Формат ввода На вход подаётся одно целое число N (2 ≤ N ≤ 106) — количество школьников, принявших участие в чемпионате. Формат вывода Ваша программа должна вывести одно целое число — наименьшее количество партий, которое потребуется сыграть для определения победителя. Пример Ввод Вывод 3 2 Примечания Решением к данной задаче является программа, написанная на одном из представленных в системе языков программирования. Программа должна считывать данные со стандартного потока ввода (иначе говоря, «с клавиатуры») и выводить ответ в стандартный вывод (иначе говоря, «на экран»). Выводить лишние символы (исключая пробелы и переводы строк) недопустимо, то есть если вместо ответа будет выведен ответ и после него (или перед ним) какое-то лишнее число или строка, то система ответ не зачтёт. Перед тем, как отправить написанную Вами программу, не забудьте указать язык программирования, на котором она написана. Выбор языка осуществляется с помощью выпадающего меню, расположенного сразу под этим текстом.
Гость
Ответ(ы) на вопрос:
Гость
//FPC 2.6.4 var i, n: integer; begin readln (n); repeat i:=i+(n div 2); n:=n-(n div 2);until n=1; write (i); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы