В круге стоят N человек. Они пронумерованы от 1 до N. Поочередно из круга начинает выходить каждый 3-й человек

@artyom5613 · Регистрация: 04.02.2017

Author24 — интернет-сервис помощи студентам

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

Название: 1.png
Просмотров: 39

Размер: 18.2 Кб

Название: 1.png
Просмотров: 39

Размер: 18.2 Кб

Например, если в круге стояло 7 человек, то его поочерёдно покинут 3, 6, 2, 7, 5, 1. Оставшимся будет человек, стоявший на 4 месте.

Была идея решить через строки, но провалилась.
И пожалуйста с объяснениями в программе через //.

@ZX Spectrum-128 · 04.02.2017, 11:57

В круге стоят N человек

@JuriiMW · 06.02.2017, 07:51

Вот так списками:

Pascal

type
  tList = class
    N : Integer;
    P, X : tList;
  end;
  
function CreateList(n : Integer) : tList;
begin
  Result := New tList; Result.N := 1;
  var Last := Result;
  for var i := 2 to n do
    begin
      var tmp := New tList; tmp.N := i; tmp.P := Last;
      Last.X := tmp; Last := tmp;
    end;
  Last.X := Result; Result.P := Last;
end;
 
procedure ExcludeList(var Cur : tList);
begin
  var tmp := Cur.X.X;
  Cur := tmp.X;
  tmp.P.X := Cur; Cur.P := tmp.P;
end;
 
begin
  var L := CreateList(ReadLnInteger('N ='));
  while L <> L.X do
    ExcludeList(L);
  WriteLn(L.N);
end.

@Joy · 06.02.2017, 10:31

Pascal

var
  a:array of boolean;
  n,i,j,k:integer;
begin
  write('n=');readln(n);
  SetLength(a,n+1);
  while j<n do begin
    while k<3 do begin 
      i:=(i+1) mod n;
      if not a[i] then k:=k+1;
     end;
      a[i]:=true;
      j:=j+1;
      k:=0;
   end;
   if n<3 then i:=n;
  writeln('Последний:',i);
end.

@artyom5613 0 / 0 / 0 Регистрация: 04.02.2017 Сообщений: 3
		1
	В круге стоят N человек. Они пронумерованы от 1 до N. Поочередно из круга начинает выходить каждый 3-й человек 04.02.2017, 11:41. Показов 4235. Ответов 3 Метки нет (Все метки) В круге стоят N человек. Они пронумерованы от 1 до N. Поочерёдно из круга начинает выходить каждый третий человек. Это продолжается до тех пор, пока в круге не останется последний человек. Определить его номер. Например, если в круге стояло 7 человек, то его поочерёдно покинут 3, 6, 2, 7, 5, 1. Оставшимся будет человек, стоявший на 4 месте. Была идея решить через строки, но провалилась. И пожалуйста с объяснениями в программе через //. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	04.02.2017, 11:57	2
	В круге стоят N человек 0

	06.02.2017, 10:31