Question

В круге стоят N человек. Они пронумерованы от 1 до N. Поочередно из круга начинает выходить каждый третий человек. Это продолжается до тех пор, пока в круге не останется последний человек. Определить его номер.P.S.: Задачу решить на языке Pascal

Answer 1

Var a : array[1..100] of integer;
j, i, n, k, out_num, is_out : integer;
Begin
  read(n); {всего людей}
  read(out_num); {номер выходящего, в задаче  = 3}

  for i := 1 to n do
    a[i] := 1;

  i := -1;
  repeat
    i:= (i + 1) mod n;
    k := k + a[i+1];
    if k = out_num then begin
      a[i+1] := 0;
      is_out := is_out + 1;
      k := 0;
     
      writeln;
      for j := 1 to n do write(a[j]:2);
    end;
  until n - is_out <= 1;
 
  writeln;
  for i := 1 to n do
    if a[i] > 0 then writeln(i);

End.