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

[Татка]

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

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

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

[volvo]

Ну, разве что забросить массив All в динамическую память - но это просто извращение:

Var
 all: ^TBigReg;
 i, count: integer;
begin
  New(all);
  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('Таких значений нет...');

  Dispose(All);
end.