P1062 数列

最新推荐文章于 2023-02-21 23:25:58 发布

溪生云

最新推荐文章于 2023-02-21 23:25:58 发布

阅读量209

点赞数

分类专栏： noip

本文链接：https://blog.csdn.net/qq_40176901/article/details/78075913

版权

noip 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

题目描述

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

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

（该序列实际上就是：3^0，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。

输入输出格式

输入格式：

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

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

输出格式：

输出文件为计算结果，是一个正整数（在所有的测试数据中，结果均不超过2.1*109）。（整数前不要有空格和其他符号）。

输入输出样例

输入样例#1：

  3 100

输出样例#1：

说明

NOIP 2006 普及组第四题

var
  m,n,t,k:int64;
  i,j,l:integer;
  a:array[0..30]of int64;
  f:array[1..1000]of int64;

begin
  readln(n,m);
  a[0]:=1;
  for i:=1 to 30 do a[i]:=a[i-1]*n;
  t:=1; k:=1; f[t]:=1;
  for i:=1 to 49 do
    begin
      if t<>m then begin inc(t); f[t]:=a[k]; inc(k); end;
      if t=m then break;
      l:=t-1;
      for j:=1 to l do
      begin
        inc(t);
        f[t]:=f[l+1]+f[j];
        if t=m then break;
      end;
    end;
  writeln(f[t]);
end.