program exp1; var i, j, k, n, L0, L1, LK : Integer; a : array [0..20] of integer; begin readln(n, k); for i:=0 to n - 1 do a[i] := i + 1; a[n] := a[n - 1]; L0 := n - 1; Lk := n - 1; for i:=1 to n - 1 do begin L1 := L0 - k; if (l1 < 0) then L1 := L1 + n; if (l1 = Lk) then begin A[L0] := a[n]; Lk := Lk - 1; a[n] := a[Lk]; l0 := lk end else begin A[l0] := a[l1]; l0 := l1; end end a[L0] := a[n]; for i:=0 to n - 1 do write(a[i] : 40); Writeln; end.
输入 : 10 4
输出 : 1