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/05/17 07:45:16

x��J�0�_��Y�n*�^�"2![;�Z��&^��7�� C�2m��I�6,^@(��i�K4�聠��v�mD݇qsg��㷣�}s��%�")�W-�T��R6��[�&N�$S�蒊�]V�.�AVr9�.��u�5�1�J*�pY��pj�%�01��#�j�JGڀj��P-X�Ӫ&-��+�&Xc6�D"�u�BZ��q|��=f��l�,J!aڏ\��0}��d��):��%�� N�0��d'��T�O�f̲��Q�o�o[�o�;g�.��C��Lr'��~#��Ҵ�W��èߊww�^��͏�q��ϟ2Ɲ��/m�M N%A$��h�+K^��/dY��E��Mb�

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.
我不想知知道答案
我想知道这个程序是干什么的