pascal的一个阅读程序题var i,j,n,s,t:longint;a:array[0..100]of longint;begins:=0;t:=0;n:=8;for i:=0 to n do a[i]:=0;while a[0]=0 dobeginj:=n;while a[j]=2 dobegindec(t,a[j]);a[j]:=0;dec(j);end;inc(a[j]);if a[0]=1 then break;inc(t);inc(s,t);writ

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 22:29:53

pascal的一个阅读程序题var i,j,n,s,t:longint;a:array[0..100]of longint;begins:=0;t:=0;n:=8;for i:=0 to n do a[i]:=0;while a[0]=0 dobeginj:=n;while a[j]=2 dobegindec(t,a[j]);a[j]:=0;dec(j);end;inc(a[j]);if a[0]=1 then break;inc(t);inc(s,t);writ
pascal的一个阅读程序题
var i,j,n,s,t:longint;
a:array[0..100]of longint;
begin
s:=0;t:=0;n:=8;
for i:=0 to n do a[i]:=0;
while a[0]=0 do
begin
j:=n;
while a[j]=2 do
begin
dec(t,a[j]);a[j]:=0;dec(j);
end;
inc(a[j]);
if a[0]=1 then break;
inc(t);
inc(s,t);
writeln;
end;
writeln(s);
end.
我不想知知道答案
我想知道这个程序是干什么的