作业帮求PASCAL 语言的解题步骤,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
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/07 23:02:52
![求PASCAL 语言的解题步骤,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](/uploads/image/z/10134012-12-2.jpg?t=%E6%B1%82PASCAL+%E8%AF%AD%E8%A8%80%E7%9A%84%E8%A7%A3%E9%A2%98%E6%AD%A5%E9%AA%A4%2Cvar+a%2Cb%3Aarray%5B0..2%5D+of+integer%3B+i%2Cj%2Ctmp%3Ainteger%3B+begin+for+i+%3A%3D+0+to+2+do+read%28b%5Bi%5D%29%3B+for+i+%3A%3D+0+to+2+do+begin+a%5Bi%5D+%3A%3D+0%3B+for+j+%3A%3D+0+to+i+do+begin+inc%28a%5Bi%5D%2Cb%5Bj%5D%29%3B+inc%28b%5Ba%5Bi%5D+mod+3%5D%2Ca%5Bj%5D%29%3B+end%3B+end%3B+tmp+%3A%3D+1%3B+for+i+%3A%3D+0)
求PASCAL 语言的解题步骤,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
求PASCAL 语言的解题步骤,
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
输出：_______
求PASCAL 语言的解题步骤,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
这是NOIP普及组第15届的一道题目,答案是416,需要注意的两点是a,b数组都是从0开始的,inc(b[a[i] mod 3], a[j]); 就是b[a[i] mod 3]:=b[a[i] mod 3]+a[j].其他的自己列两个表分别表示两个数组跟踪就行了,没什么难度.