传送门: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.