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
剩余21页未读，继续阅读
评论1