Работа с массивом, цикл на исключение элементов Опции

[NightPaladin]

Ещё одна задача. В ней надо постоянно исключать каждый второй элемент т.к они расположены по кругу, то закончив один круг т.е. дойдя до еденицы, новый круг проходит уже для оставшихся элементов, и т.д. до тех пор пока не останется одно - вот его и надо вывести на экран
Собственно условие
Числа от 1 до N расставляем по кругу и вычеркиваем каждое второе число, начиная
с 1. Определить какое число останется последним.
На входе натуральное число N (1<= N <= 1000 000), на выходе последнее число.
Пример Результат

5 3

Сообщение отредактировано: NightPaladin - 27.11.2004 16:40

[Jahnerus]

Код

uses
 crt;
const
 n=5;
var
 a:array[1..n] of integer;
 b:array[1..n] of boolean;
 i,j,k:longint;

begin
 clrscr;
 randomize;
 for i:=1 to n do begin
   a[i]:=random(100);
   b[i]:=true;
 end;
 k:=0;i:=0;j:=0;
 repeat
 i:=i+1;
 if i>n then i:=1;
 if b[i] then begin
   j:=j+1;
   if (j mod 2) =0 then begin
     b[i]:=false;
     k:=k+1;
   end;
 end;
 until k=n;
 writeln('Poryadkoviy nomer ',i);
 writeln('Znachenie ',a[i]);
 readln;
end.

Сообщение отредактировано: Jahnerus - 27.11.2004 19:33