pascal語言程式設計把四位數弄成最大和最小

1樓：匿名使用者

其實就是個排序的問題吧，一個四位數，把四數排序，比如說41324>3>2>1

那最大就是4321

最小就是1234

不知道題目還有什麼其它的要求。

2樓：聽不清啊

var a:array[1..4]of integer;

s,x,y,i,j,t:integer;

begin

readln(y); s:=0;

repeat

for i:=1 to 4 do

begin a[i]:=y mod 10; y:=y div 10; end;

for i:=1 to 3 do

for j:=1 to 4-i do

if a[j]

inc(s);

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;

until y=6174;

writeln('step=',s);

end.

四位數，這個四位數與它的各位數字之和是2019，求這個四位數，並說明理由

靠勾引人贏戰爭 下面那位方法太複雜了。我們可以用排除法，求差。根據題意這是個相加的題目，總和是1999，那另外四個數字肯定不會超過4 9 36。又因為千位數字一定是1，所以另外三個數字最大是3 9 27。這個四個數的和肯定不會超過1 27 28 這樣的話用1999 28 1971 從1971一個一個...

四位數除法豎式，求，四位數除以三位數的最簡單的豎式計算方法。

通過兩個豎式可以看出 被除數在1200 1600之間，第一個豎式的商是120以上，第二個商是二百零幾，並且最小是202，且第二個豎式中的除數是6，7，8，9中的一個，第一個豎式的除數比第二個豎式的除數大 從第二個豎式開始討論 假如商是6，則被除數是1212，1218，1224，1230，1236，1...

用數字組成四位數，每個四位數中均沒有重複數字，求全部這樣的四位數之和。（要有過程）

1 假設4位數的開頭可以是0，即0124 0134都算，那麼總排列是p 5,4 5 4 3 2 120種 2 這120種裡面，0開頭的是p 4,3 4 3 2 24種 3 這120種裡面，因為機會均等，所以在120個 個位數 十位數 百位數 千位數 裡面，0 4出現的次數都是120 5 24遍，也就...