В круге стоят N человек. Они пронумерованы от 1 до N. Поочередно из круга начинает выходить каждый третий человек. Это продолжается до тех пор, пока в круге не останется последний человек. Определить его номер.
P.S.: Задачу решить на языке Pascal
More Questions From This User See All
Answers & Comments
Verified answer
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.