社区讨论

为什么只有30分呢？求神犇指教

ddengwu
P1050[NOIP 2005 普及组] 循环参与者 6已保存回复 8

讨论操作

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

当前回复
8 条
当前快照
1 份
快照标识符
@mi4hkbk5
此快照首次捕获于
2025/11/18 19:24
4 个月前
此快照最后确认于
2025/11/18 19:24
4 个月前
查看原帖
CPP
var s1,s2,ss:string;
b,c,m,n,i,j,l,k,s:longint;
a:longint;
t,p:integer;
begin
readln(ss);                         
i:=pos(' ',ss);                       
s1:=copy(ss,1,i-1);
val(copy(ss,i+1,length(ss)-i),k,t);
  if k<20 then
     begin
       s2:=copy(s1,length(s1)-k+1,k);
       val(s2,n,p);
       l:=1;
       s:=1;
       for a:=1 to k do              
         l:=l*10;
         s:=n;
          repeat
            inc(m);
            s:=s*n mod l;                
          until (s=n) or (m=100000);
if m=100000 then writeln(-1) else writeln(m);
end
else writeln(-1);
end.

回复

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

正在加载回复...