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/07/27 13:00:49
![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](/uploads/image/z/1581784-16-4.jpg?t=pascal%E7%9A%84%E4%B8%80%E4%B8%AA%E9%98%85%E8%AF%BB%E7%A8%8B%E5%BA%8F%E9%A2%98var+i%2Cj%2Cn%2Cs%2Ct%3Alongint%3Ba%3Aarray%5B0..100%5Dof+longint%3Bbegins%3A%3D0%3Bt%3A%3D0%3Bn%3A%3D8%3Bfor+i%3A%3D0+to+n+do+a%5Bi%5D%3A%3D0%3Bwhile+a%5B0%5D%3D0+dobeginj%3A%3Dn%3Bwhile+a%5Bj%5D%3D2+dobegindec%28t%2Ca%5Bj%5D%29%3Ba%5Bj%5D%3A%3D0%3Bdec%28j%29%3Bend%3Binc%28a%5Bj%5D%29%3Bif+a%5B0%5D%3D1+then+break%3Binc%28t%29%3Binc%28s%2Ct%29%3Bwrit)
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.
我不想知知道答案
我想知道这个程序是干什么的
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
8位以内所有3进制数的数字和(注意是数字和),所以是3^7*(0+1+2)*8=52488