解释程序（NOIP2009普及组初赛试题）

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/07/01 05:18:27

解释程序（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]);
inc(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.
写程序结果,输入2 3 5
其中
for i := 0 to 2 do
begin
a[i] := 0;
for j := 0 to i do
begin
inc(a[i],b[j]);
inc(b[a[i] mod 3],a[j]);
end;

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普及组初赛试题） noip2009普及组初赛试题 noip2009初赛普及组第二大题第一小题有简单方法吗? 求试题,17届NOIP（C语言）普及组初赛试题谁有2014年全国青少年信息学奥林匹克竞赛初赛普及组试题,就只有30分了 noip2011普及组初赛答案 C NOIP 2009 普及组初赛阅读程序题 NOIP2011年普及组试题哪里有求noip2011普及组复赛试题 noip2011初赛普及组成绩求2008年NOIP普及组复赛试题跪求第十六届华杯赛初赛（小学组）试题或答案