社区讨论

纯搜的尽力了（只有60，其他超时）

ssyh0313
P1145[CERC1995] 约瑟夫参与者 9已保存回复 13

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
13 条
当前快照
1 份
快照标识符
@mi4ezrc2
此快照首次捕获于
2025/11/18 18:12
4 个月前
此快照最后确认于
2025/11/18 18:17
4 个月前
查看原帖
CPP
program p1145;
var
 n,k,i,m,x,p,min,y:longint;
 a:array[1..28]of longint;
 b:array[1..28]of boolean;
 f1,f2:boolean;
begin
 readln(k);
 for i:=1 to 28 do b[i]:=true;
 f1:=true; f2:=true;
 for i:=1 to 2*k do a[i]:=i;
 for m:=k+1 to 7632 do
 begin
 repeat
  inc(x);
  inc(p);
  if x=2*k+1 then x:=1;
  if (p=m)and(b[x]=true) then begin
                                 inc(y);
                                 b[x]:=false;
                                 p:=0;
                                end
  else if b[x]=false then dec(p);
 until y=k;
 for i:=1 to k do if b[i]=false then f1:=false;
 if (f1=true) then begin
                    min:=m;
                    break;
                   end;
 x:=0; p:=0; y:=0; f1:=true;
 for i:=1 to 28 do b[i]:=true;
 end;
 writeln(min);
end.

回复

共 13 条回复，欢迎继续交流。

正在加载回复...