【NOIP2006】第四题·数列

最新推荐文章于 2024-06-01 13:19:11 发布

转载最新推荐文章于 2024-06-01 13:19:11 发布 · 71 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kairos2000/p/4783359.html

本文介绍了一种算法，用于解决给定一个正整数k(3≤k≤15)，如何找出由所有k的方幂及其有限个互不相等的组合构成的递增序列中的第N项值。举例说明了当k=3，N=100时，正确答案为981，并提供了一段实现该算法的Pascal代码。

题目描述 Description

给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列，例如，当k=3时，这个序列是：

1，3，4，9，10，12，13，…

（该序列实际上就是：3^，3^1，3^0+3^1，3^2，3^0+3^2，3^1+3^2，3^0+3^1+3^2，…）

请你求出这个序列的第N项的值（用10进制数表示）。

例如，对于k=3，N=100，正确答案应该是981。

输入描述 Input Description

只有1行，为2个正整数，用一个空格隔开：

k N（k、N的含义与上述的问题描述一致，且3≤k≤15，10≤N≤1000）

输出描述 Output Description

为计算结果，是一个正整数(可能较大你懂的)。（整数前不要有空格和其他符号）

样例输入 Sample Input

3 100

样例输出 Sample Output

981


代码：
var a:array[0..10000] of longint;
      i,j,k,n:longint;
      w,t:int64;
begin
   readln(k,n);
   fillchar(a,sizeof(a),0);
   j:=0;
   while n>0 do
       begin
           a[j]:=n mod 2;
           n:=n div 2;
           inc(j);
       end;
   t:=0;w:=1;
  for i:=0 to j do
      begin
          t:=t+w*a[i];
          w:=w*k;
      end;
   write(t);
end.

转载于:https://www.cnblogs.com/kairos2000/p/4783359.html