《计算机编程题目(10题).doc》由会员分享，可在线阅读，更多相关《计算机编程题目(10题).doc（5页珍藏版）》请在金锄头文库上搜索。
1、1、随机产生20个不大于30的正奇数，使其首尾相连，构成环形的一组数，编程找出相邻的4个数，其相加之和最大，并给出它们的起始位置。2、求出21000之间长度最长的、成等差数列的素数（质数）。例如：在250之间的全部素数有2,3,5,7,11,13,17,19,23,29,31,37,41,43,47其中公差为1的素数数列为2,3，其长度为2公差为2的素数数列为3,5,7，其长度为3程序要求：输出满足条件的素数数列3、求出所有满足下列条件的二位数：将此二位数的个位数字与十位数字进行交换，可得到一个新的数，要求新数与原数之和小于100。程序要求：每行输出6个满足条件的数4、有N个不同整数的数列：例
2、如N=4时，有4个不同整数的数列为17，4，16，5。数列中的第1个数17，比它后面的三个数都大，则称数17的逆数为3。数列中的第2个数4比它后面的数都小，则称数4的逆数为0。同时记数列中全部逆数的和称为数列的逆数。上例中，数列17，4，16，5的逆数：为3+0+1+0= 输入N后产生不超过10000的N个不同的正整数，求数列的逆数。5、555555的约数中 最大的三位数是多少6、某个4位数前2位相同，后2位也相同但又与前2位不同，且这是个完全平方数，求此数。7、求1到1000间所有的这样的数如：145=1！+4！+5！8、如果a的全部因子（包括1不包括a）的和是b，而b的全部因子（包括1不包
3、括b）的和是a，那我们就说a和b是亲密数，找出3000以内的 所有亲密数。9、已知2个三位平方数abc和xyz其中A,B,C,X,Y,Z未必不相等 找到形如AX,BY,CZ的3个2位平方数。10、已知N个自然数1，2，N的各位数字的总个数是1980，求N.例如有自然数1，2，10，即数字总个数为11INPUT a$, b$a = LEN(a$)b = LEN(b$)FOR i = 1 TO a - b + 1t$ = MID$(a$, i, b)IF t$ = b$ THEN i = i + b - 1: GOTO 100IF i = a - b + 1 THEN m$ = m$ + MID$
4、(a$, i): GOTO 100m$ = m$ + MID$(a$, i, 1)100 NEXT iPRINT m$ENDINPUT a$, b$a = LEN(a$)b = LEN(b$)x = INSTR(1, a$, b$)WHILE x 0a$ = LEFT$(a$, x - 1) + MID$(a$, x + b)x = INSTR(1, a$, b$)WENDPRINT a$ENDINPUT a$, b$a = LEN(a$)b = LEN(b$)FOR i = 1 TO at$ = MID$(a$, i, b)IF t$ = b$ THEN i = i + b - 1: GOTO 10m$ = m$ + LEFT$(t$, 1)10 NEXT iPRINT m$ENDINPUT a$, b$a = LEN(a$)b = LEN(b$)FOR i = 1 TO nt$ = MID$(a$, i, b)IF t$ = b$ THEN a$ = LEFT$(a$, i - 1) + MID$(a$, i + n): i = i - 1 NEXT iPRINT a$END
