写出下列程序运行结果1.varm,i,j:integer;a:array[1..100]oflongint;n:longint;beginreadln(m);fori:=1tomdobegina[i]:=1;forj:=i-1downto2doa[j]:=a[j]+a[j-1];end;fori:=1tomdon:=n+a[i];writeln(n);end.输入:8输出:2.vari,s,x,k,j:byte;beginreadln(x);i:=1;s:=0;whiles<xdobegini:=i+1;s:=s+i;end;k:=s-x;ifK<>1thenbeginforj:=2toidoifj<>kthenwrite(j,);writeln;endelsebeginforj:=3toi-1dowrite(j,);writeln(i+1);en...