作业帮pascal程序：数列
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/30 05:21:30
pascal程序：数列
数列（ sequence.pas） 【问题描述】
给定一个正整数 k(3≤k≤15),把所有 k 的方幂及所有有限个互不相等的 k 的方幂之
和构成一个递增的序列,例如,当 k=3时,这个序列是：
1,3,4,9,10,12,13,…
（该序列实际上就是：30,31,30+31,32,30+32,31+32,30+31+32,…）
请你求出这个序列的第 N项的值（用 10进制数表示）.
例如,对于 k=3,N=100,正确答案应该是 981.
【输入文件】
输入文件 sequence.in 只有 1行,为 2个正整数,用一个空格隔开：
k N
（k、N的含义与上述的问题描述一致,且 3≤k≤15,10≤N≤1000）.
【输出文件】
输出文件 sequence.out 为计算结果,是一个正整数（在所有的测试数据中,结果均
不超过 2.1*109
）.（整数前不要有空格和其他符号）.
【输入样例】
3 100
【输出样例】
981
pascal语言
数列（ sequence.pas） 【问题描述】
给定一个正整数 k(3≤k≤15),把所有 k 的方幂及所有有限个互不相等的 k 的方幂之
和构成一个递增的序列,例如,当 k=3时,这个序列是：
1,3,4,9,10,12,13,…
（该序列实际上就是：30,31,30+31,32,30+32,31+32,30+31+32,…）
请你求出这个序列的第 N项的值（用 10进制数表示）.
例如,对于 k=3,N=100,正确答案应该是 981.
【输入文件】
输入文件 sequence.in 只有 1行,为 2个正整数,用一个空格隔开：
k N
（k、N的含义与上述的问题描述一致,且 3≤k≤15,10≤N≤1000）.
【输出文件】
输出文件 sequence.out 为计算结果,是一个正整数（在所有的测试数据中,结果均
不超过 2.1*109
）.（整数前不要有空格和其他符号）.
【输入样例】
3 100
【输出样例】
981
pascal语言
这个中有规律
program sl;
var
a:array [1..2000] of longint;
i,j,k:longint;
n:longint;
begin
readln(k,n);
{ b[0]:=1;
c[0]:=0;
for i:=1 to 46 do
begin
b[i]:=b[i-1]*k;
c[i]:=c[i-1]+b[i];
end; }
a[1]:=1;
a[2]:=k;
i:=2;
while i
program sl;
var
a:array [1..2000] of longint;
i,j,k:longint;
n:longint;
begin
readln(k,n);
{ b[0]:=1;
c[0]:=0;
for i:=1 to 46 do
begin
b[i]:=b[i-1]*k;
c[i]:=c[i-1]+b[i];
end; }
a[1]:=1;
a[2]:=k;
i:=2;
while i