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/10/18 14:02:48
xJ0_ Yn*^"2![;Z&^7 C2mI6,^ @(iK4聠vmD݇qsg 㷣}s %") W-T R6[&N$S蒊 ]V.AV r9.u51J*pYpj%01 #jJGڀjP-XӪ&- +&Xc6D"uBZq|=f l,J!aڏ\0}d):% N0d'TOf̲ Qo o[o;g.CLr'~#ҴWèߊww^͏qϟ2Ɲ/mM N%A$h+K^/dY EMb