[RQNOJ313]波浪数

题目描述

波浪数是在一对数字之间交替转换的数，如1212121，双重波浪数则是指在两种进制下都是波浪数的数，如十进制数191919是一个十进制下的波浪数，它对应的十一进制数121212也是一个波浪数，所以十进制数191919是一个双重波浪数。
类似的可以定义三重波浪数，三重波浪数在三种不同的进制中都是波浪数，甚至还有四重波浪数，如十进制300=606（七进制）=363（九进制）=454（八进制）=1A1（十三进制）…，你的任务就是在指定范围内找出双重、三重、四重波浪数。

输入输出格式

输入格式：

单独一行包含五个用空格隔开的十进制整数，前两个数表示进制的范围（2••32），第三与第四个数表示指定的范围（1••10000000），第五个数为2,3,4中的一个，表示要找的波浪数的重数。

输出格式：

从小到大以十进制形式输出指定范围内的指定重数的波浪数。一行输出一个数。

输入输出样例

输入样例#1：

10 11 190000 960000 2

输出样例#1：

var a,b,c,d,e,i,j,k,n:longint;

    x,y:array[..] of longint;

begin

    readln(a,b,c,d,e);

    for i:=a to b do

        begin

            for j:= to i- do

                for k:= to i- do

                    begin

                        n:=;

                        if (j=k) then continue;

                        while true do

                            begin

                                n:=n*i+j;

                                if n>d then break;

                                inc(x[n]);

                                n:=n*i+k;

                                if n>d then break;

                                inc(x[n]);

                            end;

                    end;

        end;

    for i:=c to d do

        begin

            if (x[i]=e) then writeln(i);

        end;

end.

巴特西

[RQNOJ313]波浪数

题目描述

输入输出格式

输入输出样例

最新文章

热门文章