【CODE[VS]】3943 数学奇才琪露诺（月赛round1）

最新推荐文章于 2025-01-14 21:34:06 发布

原创最新推荐文章于 2025-01-14 21:34:06 发布 · 405 阅读

0 ·

CC 4.0 BY-SA版权

CODE-VS 专栏收录该内容

4 篇文章

订阅专栏

作者回顾了自己从一个名为wikioi的网站开始的OI之旅，并分享了一个关于数字和的编程问题解决方案，通过枚举状态数最少的环节来解决环形过程问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

传送门：http://codevs.cn/problem/3943/

这份代码不是现在写的……
有些事情好怀念啊……
13年我的生日那天，我的OI旅途从一个叫wikioi的网站开始了。
到现在那封邮箱认证还静静地躺在我邮箱的最后，一直舍不得删。
有很多的东西变了。

以下为正题：
因为整个过程是一个环，并且对于某个操作某个状态有唯一对应的全过程（或者不存在）
所以从状态数最少的环节入手（数字和），枚举即可

var k,p,q,l,r,i,ans,a:longint;
    an:array[1..100] of longint;
function pow(a,k:longint):longint;
begin
    pow:=1;
    while k>0 do begin
        if k and 1=1 then pow:=pow*a;
        a:=sqr(a);
        k:=k>>1;
    end;
end;
function sw(a:longint):longint;
var s:string;
    b,i:longint;
begin
    str(a,s);
    sw:=0;
    for i:=1 to length(s) do begin
        val(s[i],b);
        inc(sw,b);
    end;
end;
begin
    readln(k,p,q);
    readln(l,r);
    for i:=1 to 81 do begin
        a:=pow(i,k)*p+q;
        if (sw(a)=i) and (l<=a) and (r>=a) then begin
            inc(ans);
            an[ans]:=a;
        end else if a>r then break;
    end;
    writeln(ans);
    for i:=1 to ans do write(an[i],' ');
end.