1樓：網友
題1 var st:string;
a:array[1..10] of char;
j,i,l,k:integer;
ch:char;
beginreadln(st);
l:=length(st);
for i:=1 to l do
a[i]:=st[i];
k:=l;for i:=1 to l-1 do beginfor j:=1 to k-1 do
if a[j]>a[j+1] then beginch:=a[j];
a[j]:=a[j+1];
a[j+1]:=ch;
end; k:=k-1;
end; for i:=1 to l do write(a[i]);writeln;
for i:=l downto 1 do write(a[i]);writeln;
end. 題2 有問題 原始數只能為4位數 且4數不能重複。
改後程式如下。
var z,t,n,i,j,s:integer;
x:string;
a,b:array[1..4]of integer;
beginreadln(n);
str(n,x);
for i:=1 to 4 do
a[i]:=ord(x[i])-48;
s:=0;repeat
for i:=1 to 4 do
for j:=1 to 3 do
if a[j]a[j]:=a[j+1];
a[j+1]:=t;
end; for i:=1 to 4 dob[i]:=a[5-i];
for i:=1 to 4 do
a[i]:=a[i]-b[i];
for i:=4 downto 1 do
if a[i]<0 then begin
a[i]:=a[i]+ 10;
a[i-1]:=a[i-1]-1;
end; z:=0;
for i:=1 to 4 do z:=z*10+a[i];
s:=s+1;
until z=6174;
writeln(s);
end.
2樓：我的偶像是周瑜
我們要的是分，給0蛋的就不要白費唇舌了。
3樓：憶可棠
請問什麼叫"最整大數"啊。
pascal陣列的練習題兩道，請幫忙解釋。
4樓：網友
var a:array['a'..e',1..4,boolean]of real
相當於。var a:array['a'..e'] ofarray[1..4] of
array[boolean] of reala['a',3] 相當於 a['a'][3]所以 a['a',3] 是 b，乙個陣列，該陣列具有兩個實型陣列元素。
答案】 b
兩道物理題，兩道物理題
第一題 如果g 取10n kg的話，a是對的。b也是對的。第二題 相互作用力的受力物體和施力物體是對應的，即x對y的力和y對x 的力。力的平衡是受力物體為同一個，即a 對x 的力與b 對x 的力平衡。所以選b 選擇a和b，重力的方向是豎直向下的如果是垂直向下就是錯誤的選擇b b 這個考的是平衡力與相...
兩道化學題，請教兩道化學題！
第二個答案是c 反應方程式為caso4沉澱 co3 2 離子 caco3沉澱 so4 2 k 硫酸根的濃度除以碳酸根的濃度 硫酸鈣的溶度積除以碳酸鈣的溶度積 4.90 10 5除以2.80 10 9 17500第二題為a 因為溫度增大會引起水的電離增大，強酸的氫離子濃度極大水的電離不會對ph有一點影...
浮力題兩道
1.a酒精密度 1000kg m 3，故物體排開的100ml酒精的質量 100g，物體受到的浮力小於自身的重力，所以沉入底部。2.a木塊密度小於酒精，所以木塊漂浮在酒精表面，它所排開的酒精的重力 它所受到的浮力 它自身的重力 他所排開的水的重力。回答者 匿名 2 19 10 45 補充 看起來第一題...