一道pascal的题目给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列,例如,当k=3时,这个序列是:1,3,4,9,10,12,13,…(该序列实际上就是:30,31,30+31,3
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 02:57:18
![一道pascal的题目给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列,例如,当k=3时,这个序列是:1,3,4,9,10,12,13,…(该序列实际上就是:30,31,30+31,3](/uploads/image/z/1581769-1-9.jpg?t=%E4%B8%80%E9%81%93pascal%E7%9A%84%E9%A2%98%E7%9B%AE%E7%BB%99%E5%AE%9A%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0k%283%E2%89%A4k%E2%89%A415%29%2C%E6%8A%8A%E6%89%80%E6%9C%89k%E7%9A%84%E6%96%B9%E5%B9%82%E5%8F%8A%E6%89%80%E6%9C%89%E6%9C%89%E9%99%90%E4%B8%AA%E4%BA%92%E4%B8%8D%E7%9B%B8%E7%AD%89%E7%9A%84k%E7%9A%84%E6%96%B9%E5%B9%82%E4%B9%8B%E5%92%8C%E6%9E%84%E6%88%90%E4%B8%80%E4%B8%AA%E9%80%92%E5%A2%9E%E7%9A%84%E5%BA%8F%E5%88%97%2C%E4%BE%8B%E5%A6%82%2C%E5%BD%93k%3D3%E6%97%B6%2C%E8%BF%99%E4%B8%AA%E5%BA%8F%E5%88%97%E6%98%AF%EF%BC%9A1%2C3%2C4%2C9%2C10%2C12%2C13%2C%E2%80%A6%EF%BC%88%E8%AF%A5%E5%BA%8F%E5%88%97%E5%AE%9E%E9%99%85%E4%B8%8A%E5%B0%B1%E6%98%AF%EF%BC%9A30%2C31%2C30%2B31%2C3)
一道pascal的题目给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列,例如,当k=3时,这个序列是:1,3,4,9,10,12,13,…(该序列实际上就是:30,31,30+31,3
一道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
一道pascal的题目给定一个正整数k(3≤k≤15),把所有k的方幂及所有有限个互不相等的k的方幂之和构成一个递增的序列,例如,当k=3时,这个序列是:1,3,4,9,10,12,13,…(该序列实际上就是:30,31,30+31,3
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.
程序给你,自己理解