用freepascal程式設計輸入三位數的整數,將數字位置重新排列，組成盡可能大的三位數 例如輸入213，重

1樓：匿名使用者

program make;

var a:array[1..3] of char;i,j:integer;t:char;

begin

for i:=1 to 3 do read(a[i]);

for i:=1 to 2 do

for j:=1 to 3-i do

if a[j]

begin

t:=a[j];

a[j]:=a[j+1];

a[j+1]:=t;

end;

for i:=1 to 3 do write(a[i]);

writeln;

end.

2樓：匿名使用者

program p35;

var a,b,c,x,y,z:integer;

begin

readln(x);

a:=x mod 10;

b:=(x mod 100) div 10;

c:=x div 100;

for z:=1 to 6 do

begin

if b>a then

begin

y:=b;

b:=a;

a:=y;

end;

if c>a then

begin

y:=c;

c:=a;

a:=y;

end;

if c>b then

begin

y:=c;

c:=b;

b:=y;

end;

end;

writeln(a,b,c);

readln;

end.

用C 程式設計實現函式，輸入任意麵值人民幣時，輸入按面值1兌換的結果

include include 在這裡定義貨幣面值,可任意修改和新增,但是最後一個必須為1int money int main 輸入數值 868100面值8張 50面值1張 10面值1張 5面值1張 2面值1張 1面值1張 請按任意鍵繼續. include using namespace std i...

用vb程式設計任意輸入數輸出其中最大值

桖卉 private sub command1 click a val inputbox 請輸入第一個數 b val inputbox 請輸入第二個數 print 你輸入的數分別是 a 和 bprint 其中較大數是 if a b then print a else print b end if e...

c語言程式設計用迴圈語句輸入數，求平均值

酒飲懷華藏 上樓的那個百，明顯是度錯了，應該知用浮點類道型，而版不是整型。權 include main a float sum 10 printf f a getch 櫻桃花花孩子 include main printf d sum 10 實現思路很簡單 將十個數相加後，再除以10即可. 樓上的做法...