Обратная "считалочка", Обратная "считалочка" Опции

[Татка]

Приветик! :yessss:

Пожалуйста, помогите, задачку надо до утра решить!
Задачка эта, можно сказать, обратная задачке "считалочка". Тема - динамические структуры данных.
Задача: В задаче о "считалочке" Петя находится на месте i. Сущевствует ли значение k (k-ый удаляемый ребенок) такое, что Петя останется последним ребенком в круге. Написать программу поиска значений k.

Умоляю :molitva: , помогите пожалуйста.

[volvo]

Я не знаю, как быть с динамическими структурами данных... Их тут просто негде использовать... Если без них - то можно взять вот эту программу: Казнь, задать в ней константу K = N, и изменить основную часть вот так:

Const Peter = ...{ На каком месте находится Петя }
...
Var
 all: TBigReg;
 i, count: integer;
begin
  For i := 1 To n Do
    set_bit(all, i);

  count := 0;
  For i := 1 To n Do
    If down_next(all, k, i)) = Peter Then Begin
      WriteLn('При значении K = ', i); inc(count);
    End;
  if count = 0 Then writeln('Таких значений нет...');
end.