百度作业网一道pascal的题目
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/07 14:54:27
一道pascal的题目
给定一个正整数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
给定一个正整数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
var k,n,i,j,t:longint;
a:array[1..100] of longint;
s:int64;
begin
readln(k,n);
t:=n; i:=0;
while t0 do
begin
i:=i+1; a[i]:=t mod 2; t:=t div 2;
end;
s:=0;
for j:=i downto 1 do
s:=s*k+a[j];
writeln(s);
end.
程序给你,自己理解
a:array[1..100] of longint;
s:int64;
begin
readln(k,n);
t:=n; i:=0;
while t0 do
begin
i:=i+1; a[i]:=t mod 2; t:=t div 2;
end;
s:=0;
for j:=i downto 1 do
s:=s*k+a[j];
writeln(s);
end.
程序给你,自己理解