Задача Джозефуса.

[blade288]

Добрый вечер!

Помогите, пожалуйста, написать след. программу. (либо на зыке Delphi, либо на Pascal):

Написать программу обработки кольцевого списка из N лементов, решающую задачу Джозефуса. Задача представляет собой своего рода считалку: элементы становятся в круг, вводится некоторое число k. Необходимо, начиная с первого, отсчитать k-й элемент списка и удалить его. Далее отсчет начинается с (k+1)-го элемента и опять удаляется k-ый. Так продолжается до тех пор, пока в списке не останется один элемент. Выдать содержимое последнего элемента.

[_Dmitry]

var
  n,k,i: integer;
  s: string;
begin
  n:=50; //количество элементов, max 255
  for i:=1 to n do
    s:=s+chr(i);
  k:=12; //номер элемента, который удаляем
  i:=1;
  repeat
    i:=i+k-1;
    while i > n do i:=i-n;
    delete(S,i,1);
    n:=length(s);
  until n <= 1;
  Edit1.Text:=IntToStr(ord(s[n]));
end;

[blade288]

Спасибо за помощь, но я нашел другое решение.

[valiaam55]

Добрый вечер! Помогите пожалуйста написать программу решения задачи Джозефуса с помощью циклического массива.