社区讨论

超时怎么办？

YYczSS
P1218[USACO1.5] 特殊的质数肋骨 Superprime Rib参与者 8已保存回复 7

讨论操作

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

当前回复
7 条
当前快照
1 份
快照标识符
@mi4f34ru
此快照首次捕获于
2025/11/18 18:14
4 个月前
此快照最后确认于
2025/11/18 18:14
4 个月前
查看原帖
CPP
label 1;
var
  n,i,j,k,c,cc:longint;
  sss,ss,s:string;
  code:integer;
  function pan(n:longint):boolean;
  var i:longint;
  begin
    for i:=2 to trunc(sqrt(n)) do
    if n mod i=0 then exit(false);
    pan:=true;
  end;
begin
  readln(n);
  ss:='1'; sss:='9';
  for i:=1 to n-1 do
  begin
    ss:=ss+'0';
    sss:=sss+'9';
  end;
  val(ss,c,code);
  val(sss,cc,code);
  for i:=c to cc do
  begin
    k:=i;
    while k<>0 do
    begin
      if not(pan(k)) then goto 1;
      k:=k mod 10;
    end;
    writeln(i);
  1:end;
end.

回复

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

正在加载回复...