帕斯卡二維數組

var a:array[1..4]的整數；

s，x，y，I，j，t:整數；

開始

readln(y)；s:= 0；

重復

for i:=1到4 do

begin a[I]:= y mod 10；y:= y div 10；結束；

for i:=1到3 do

？對於j:=1到4-我願意

如果a[j]& lt；a[j+1]然後開始t:= a[j]；a[j]:= a[j+1]；a[j+1]:= t end；

公司；

y:= 1000 * a[1]+100 * a[2]+10 * a[3]+a[4]；

x:= 1000 * a[4]+100 * a[3]+10 * a[2]+a[1]；

writeln(y:4，'-'，x:4，' = '，y-x:4)；

y:= y-x；

直到y = 6174；

writeln('Step= '，s)；

結束。

上一篇:鯨魚短視頻賺錢是真的嗎？安全嗎？

下一篇:所有版本的exce l軟件都能進行vba編程嗎