原创力文档- 1、本文档共23页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
信息学奥林匹克普及组-程序填空
95普及组
1 求出所有满足下列条件的二位数：将此二位数的个位数字与十位数字进行交换，可得到一个新的数，要求新数与原数之和小于100。
程序要求：每行输出6个满足条件的数。
[算法提要] 分解每一个二位数，然后重新组成一个新数，当满足条件时，用计数器来统计个数。
程序： k := 0;
for i := ______①____ to 99 do begin
x:= _____②_____; y := _____③_____;
j := x * 10 + y;
if ____④_____ then begin
k := k + 1;
write(i : 4);
______⑤_____ then writeln;
end;
end;
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 begin
_____①____;
for j := 1 to i - 1 do s := ______②_______;
a[i] := _______③_______;
end;
for i:=1 to 6 do
t := ______④______ write(a[i], );
Writeln(能组成不同整数的个数：, t)
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;
For i := 2 to ______①______ do begin
If _____②_____ then begin
k := i + i;
While k = num do begin
B[k] := 0;
K := k + i
End;
End;
End;
For i := 2 to num - 1 do begin
If _______③_________ then begin
文档评论（0）