clear n=0 for i=2 to 1000 k=i*i m=len(alltrim(str(i))) if (k-i)%(10^m)=0 then n=n+1 endif endfor n

相关推荐

• 一个质点在几个力作用下的位移为△r=5j+6j+7k(m),其中一个力为恒力F=2I+3j-4k(N)则此位移过程中所做的功为A8J B0J C56J D10J
• clear n=0 for i=2 to 1000 k=i*i m=len(alltrim(str(i))) if (k-i)%(10^m)=0 then n=n+1 endif endfor n这个程序中的m=len(alltrim(str(i)))if (k-i)%(10^m)=0
• X(5) ENDIFENDFORFOR M=10 TO N+1 (6) (7) NEXT(8) FOR K=1 TO 10A(K" target="_blank"> 一、 程序填空1． 输入一串数字字符,当其个数为10时,进行各个数字求和运算,否则重新输入.CLEARSET TALK OFFS=0DO WHILE .T.ACCEPT “输入一串数字字符：” TO XM= (1) IF M=10(2) ENDIF(3) ENDDOFOR N=1 TO 10S=S+ (4) ENDFOR”该数字字符各个数字之和为：”,SSET TALK ONRETURN2． 定义一个包含10个元素的A数组,该数组中已有9个数据且按从小到大顺序存放,第10个元素为空,现输入一个数放到数组中,且要求仍为由小到大顺序.CLEARSET TALK OFFDIME A(10)FOR K=1 TO 9INPUT "输入"+ "第"+STR(K,2)+ "个数据" TO A(K)NEXTINPUT “输入要插入的数：” TO XFOR N=1 TO 9IF A(N)>X(5) ENDIFENDFORFOR M=10 TO N+1 (6) (7) NEXT(8) FOR K=1 TO 10A(K
• 1某课外活动小组围绕自行车问题进行了广泛研究,其中的部分问题如下：（1）如图所示,自行车的脚踏和牙盘构成一个轮轴,而轮轴实质上也就是一种杠杆,当然也遵守杠杆原理.经测量,脚踏到轴心的距离R＝25cm,带动链条的牙盘半径为r＝15cm.若脚踏板所用的力F=15N,请根据杠杆平衡条件求链条所产生的拉力f.（2）如果骑车人和车的总质量为70kg,在水平地面上,骑车时每个轮胎与地面的接触面积约为7×10-4m2.此时：①自行车对地面的压力多大?②车前行时对地面的压强为多少?(g=10N/kg)（3）我国是自行车王国,现今电动自行车大有替代脚踏车之势,兴趣小组对某型号的电动自行车也进行了研究.该电动车蓄电池供电电压为24V,若人、车共重为1000N匀速行驶时所受阻力为总重的0.03倍.他们研究发现,如果电动机的转化效率一定时,车速和电流之间存在着某种关系,通过测试,获得了如下表所示的数据：I/A 0 1 2.5 6 7 10v/（m/s） 0 0.64 1.6 3.84 4.48 6.4①分析表中数据,得出
• 1.设有 float x=16.8,y=18.6; 则(int) (x+y)的结果为.A) 34 B) 35 C) 36 D) 372.以下选项中不是C语句的是 .A) { i=10； printf(“%d\n”,i); } B) max=m>n?m :n；C) a=8,c=18 D) ；3.设有：int a[10],i=5;以下对数组元素的引用,不正常的是____.A) a[9] B) a[0] C) a[i] D) a[i+5]4下列程序的功能是根据如下公式求s的值,直到最后一项的值小于10-5为止.s=1+1/3 +1/5 +1/7+…+1/ (2m+1)请改正程序中的错误,使它能得出正确的结果.#include void main( ){int n=0;double t,s; /* error 1*/do{n=n+1;t=1/ (2n+1); /* error 2*/s=s+t;}while(t0)fun(k-1);printf(“ %d”,k);1b 2c 3d4 /*error1*/
• 运行下列程序后M的值是多少?SET TALK OFF M=0 N=0 DO WHILE N>M M=M+N N=N-10 ENDDO M RETURN1输入货物重量，计算该货物的托运费，记费标准每千克0.1元，每当超过50千克以后，超出数再每千克加收0.2元，按要求编写一个收费程序。2,下列程序执行后，显示的结果是什么S=0 I=1 DO WHILE IY T=X X=Y Y=T ENDIF MOD SET TALK ON SET TALK OFF S=0 FOR I=1 TO10 S=S+I ENDFOR S SET TALK ON RETURN CJ=XJ+成绩 SKIP 运行此程序，屏幕上将显示什么
• 求 S=a+aa+aaa+…+aaa…a 的值,其中a是一个数字,n代表a的位数,例如2+22+222+2222+22222(n=5）.#include void main(){int i,j,k,a,c,sum,s,n,m,b=10;printf("a=?,n=?\n");scanf("%d%d",&a,&n);if(n==0) sum=0;else{for(i=1;i
• 为确保信息安全，信息需加密传输，发送方由明文⇒密文（加密），接收方由密文⇒明文（解密），已知有一种密码，将英文26个小写字母a，b，c，…，z依次对应0，1，2，…，25这26个自然数（见表格），当明文中的字母对应的序号为β时，将β+10除以26后所得的余数作为密文中的字母对应的序号，例如明文s对应密文c 字母 a   b c  d  e  f  g  h  i  j  k  l  m  序号 0  1  2  3  4  5   6  7 8  9  10  11  12  字母  n o  p  q   r  s t  u  v  w  x  y  z  序号 13  14  15  16  17  18  19  20  21  22 23  24  25 按上述规定，将明文“maths”译成密文后是（　　）A. wkdrcB. wkhtcC. eqdjcD. eqhjc
• set talk off clear for W=100to 200 prime=.t. for I=2to W-1 if mod(W,I)=0 prime=.f. exit endif enddo哪里错掉了.嵌套错误又是什么.不是很懂若改为任意范围内的素数和（100与200用m,n代替呢.该怎么写）非常感谢.机试后输出的是f 不是很董。。为什么是.f..假如要求100到200内的素数的和呢?
• 计算3+33+333……前10项之和 CLEAR m=3 n=0 s=0 FOR i=10 to 1 _______ n= ____ s=s+n ENDFOr填空就行
• 飞吧,小百灵,你能飞向四面八方,飞向更加美好的明天这句话的含义是
• 底面是菱形的棱柱其侧棱垂直于底面，且侧棱长为5，它的对角线的长分别是9和15，则这个棱柱的侧面积是（　　） A.130 B.140 C.150 D.160