填充题（初赛）.docVIP

填充题（初赛） 二、根据根据题目要求，补充完善以下伪代码程序： 1． 求出所有满足下列条件的二位数：将此二位数的个位数字与十位数字进行交换，可得到一个新的数，要求新数与原数之和小于100。 程序要求：每行输出6个满足条件的数。 [算法提要] 分解每一个二位数，然后重新组成一个新数，当满足条件时，用计数器来统计个数。 程序： K := 0; FOR i := ______①____ TO 99 DO X := _____②_____; Y := _____③_____; J := x * 10 + y; IF ____④_____ THEN K := k + 1; Write(I : 4); ______⑤_____ THEN WRITELN; ENDIF ENDFOR; 2． 找出小于33的6个正整数，用这些整数进行加法运算，使得包括原来的整数在内能组成尽可能多的不同整数。 例如：用2，3，5这三个数能可组成下面的数 2, 3, 5 2 + 3 = 5, 但5已经存在 2 + 5 = 7, 3 + 5 = 8, 2 + 3 + 5 = 10 所以用2，3，5能组成6个不同的数。 程序要求：输出所选的这6个数，以及能组成不同整数的个数。 [算法提要]：选择的这6个数，用来组成数时应该尽可能不重复，引入数组A保存找出的这6个整数。 程序： A[1] := 1; t := 0; For i := 2 to 6 do _____①____; for j := 1 to i - 1 do s := ______②_______; ENDFOR; a[i] := _______③_______; ENDFOR; FOR i:=1 TO 6 DO T := ______④______ WRITE(a[i], ); ENDFOR; Writeln(能组成不同整数的个数：, t) End. 3． 求出2~1000之间长度最长的、成等差数列的素数（质数）。 例如：在2~50之间的全部素数有 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47 其中公差为1的素数数列为2,?3，其长度为2 公差为2的素数数列为3,?5, 7，其长度为3 …… 程序要求：输出满足条件的素数数列。 [算法提要]：首先用筛选法求出此范围内的全部素数，存放在数组B中，然后用2个变量i,j，逐步求出满足条件的素数数列。 程序: Max := 0; num := 1000; For i := 2 to num do b[i] := i; ENDFOR For i := 2 to ______①______ do If _____②_____ then k := i + i; While k = num do B[k] := 0; K := k + i ENDWHILE;