一道pascal的题目
一道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
最佳回答
var k,n,i,j,t:longint;a:array[1。。100] of longint;s:int64;beginreadln(k,n);t:=n; i:=0;while t0 dobegini:=i+1; a[i]:=t mod 2; t:=t div 2;end;s:=0;for j:=i downto 1 dos:=s*k+a[j];writeln(s);end。程序给你,自己理解
最新回答共有2条回答
-
2026-04-02 18:00:40还单身的斑马
回复var k,n,i,j,t:longint;a:array[1。。100] of longint;s:int64;beginreadln(k,n);t:=n; i:=0;while t0 dobegini:=i+1; a[i]:=t mod 2; t:=t div 2;end;s:=0;for j:=i downto 1 dos:=s*k+a[j];writeln(s);end。程序给你,自己理解
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
