pascal7.0三位数排序老师出了这么一道题“输入一个三位数的整数,将数字位置重新排列,组成一个尽可大的三位数。例如:

pascal7.0三位数排序
老师出了这么一道题“输入一个三位数的整数,将数字位置重新排列,组成一个尽可大的三位数。例如:输入213,重新排列可得到尽可能大的三位数是321。”
请问谁会做啊!!(注意:是turbo pascal 7.0啊!)。
呕吐的马桶 1年前 已收到1个回答 举报

奶奶个雄 幼苗

共回答了19个问题采纳率:100% 举报

program paixu;
var
a1,a2,a3,n:longint;
begin
readln(n);a1:=n mod 10;a2:=n div 10 mod 10;a3:=n div 100;
if a1

1年前

5
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 18 q. 0.849 s. - webmaster@yulucn.com