使用Markdown¿¿¿
by linzhi123 @ 2023-10-02 11:47:11
我这个只有30分。
```
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.
```
by xzwdqjdx @ 2023-10-04 13:00:27
?
by dongyuchen123 @ 2024-04-15 16:15:18