网上有关“解释程序（NOIP2009普及组初赛试题）”话题很是火热 ，小编也是针对解释程序（NOIP2009普及组初赛试题）寻找了一些与之相关的一些信息进行分析 ，如果能碰巧解决你现在面临的问题，希望能够帮助到您。
var
a, b: array[0..2] of integer;
i, j, tmp: integer;
begin
for i := 0 to 2 do
read(b[i]); //读入
for i := 0 to 2 do
begin
a[i] := 0;
for j := 0 to i do
begin
inc(a[i], b[j]); //a[i]:=a[i]+b[j]
inc(b[a[i] mod 3], a[j]); //b[a[i] mod 3]:=b[a[i] mod 3]+a[j]
end;
end;
tmp := 1;
for i := 0 to 2 do
begin
a[i] := a[i] mod 10;
b[i] := b[i] mod 10; //取余
tmp := tmp * (a[i] + b[i])
end;
writeln(tmp);
end.
真没什么可说的 。 。。这也不像是什么算法 ，估计就是专门写来出题的
inc函数那一段 ，inc(i,j)表示i:=i+j 如果写成inc(i)则表示i:=i+1
与之相对的dec函数用法相同，把+改成- inc dec比直接加减稍快 。
关于NOIP2009初赛普及组Pascal语言一道题目的问题与阅卷处理意见
经查 ，NOIP2009
初赛普及组（Pascal版本）第四大题（阅读程序写结果）第4小题题
目中存在一处数据输入格式的错误：该题提供的输入为“NOIP 3 ” ，本意是分别读入到一
个字符串和整型变量中，但是由于本题的输入在同一行，数据中缺少一个换行 ，按照程序
的写法 ，Pascal语言会将这一行输入都作为字符串读入，而无法读到
3 ，因此程序的实际运行无法得到答案给出的结果 。
经过讨论 ，该题在阅卷时接受以下三种情况的答案（仅限Pascal语言，不涉及C/C++语言的试卷） ，即以下3种情形均可得分：
1.NPOI
（注：按照题目本意理解并正确完成）。
2.NOIP 3
（注：此种情况是输入“NOIP 3 ”后 ，程序等待继续输入时，输入Ctrl+Z结束输入 ，也包括文件流定向到标准输入的情形） 。
3.
结果处给出适当文字说明 ，例如
“等待输入”；
“程序无法结束 ”；
“根据不同的n值，输出结果不同 ”
等 ，各地阅卷小组可灵活掌握 。但结果处简单空白且不加任何说明将不给分。
烦请各地特派员及时通知至阅卷小组。对于因我们的失误和疏忽所造成的后果深表歉意 。
如有其它问题请随时联系 。
NOI
科学委员会
2009-10-19
关于“解释程序（NOIP2009普及组初赛试题）”这个话题的介绍 ，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
本文来自作者[涵山]投稿，不代表万佳号立场，如若转载，请注明出处：https://yazmewi.cn/baikezhishi/202512-493.html
评论列表（4条）
我是万佳号的签约作者“涵山”！
希望本篇文章《解释程序（NOIP2009普及组初赛试题）》能对你有所帮助！
本站[万佳号]内容主要涵盖：国足,欧洲杯,世界杯,篮球,欧冠,亚冠,英超,足球,综合体育
本文概览：网上有关“解释程序（NOIP2009普及组初赛试题）”话题很是火热，小编也是针对解释程序（NOIP2009普及组初赛试题）寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你...