145 человек
Объяснение:
Решал через 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<2 do begin
i:=(i+1) mod n;
if not a[i] then k:=k+1;
end;
a[i]:=true;
j:=j+1;
k:=0;
if n<2 then i:=n;
writeln('Последний:',i);
end.
145 человек
Объяснение:
Решал через 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<2 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<2 then i:=n;
writeln('Последний:',i);
end.