UC知道帮帮忙~~题难呀~~用pascal程序写此题~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/21 11:13:52
问题：
输入一个三位数（如872），输出一个三位数，按每位数的大小排列（如278）若有0，不能排在第一位。
必须用pascal程序哟~~~今晚要用~~~
输入一个三位数（如872），输出一个三位数，按每位数的大小排列（如278）若有0，不能排在第一位。
必须用pascal程序哟~~~今晚要用~~~
program p1:
var interger:n,a,b,c;
bloom:p;
begin
readln(n);
p:=true;
if (n<100)and(a>1000) then begin
writeln"error";
p:=false;
end;
a:=n div 100 /100;
b:=(n-a*100) div 10 /10;
c:=n-b*10-c*100;
if a<b then begin
m:=a;
a:=b;
b:=m;
end;
if a<c then begin
m:=a;
a:=c;
c:=m;
end;
if b<c then begin
m:=b;
b:=c;
c:=m;
end;
if a<>0 then
write(a,b,c)
else if (b<>0) then
write(b,c)
else if (c<>0) then
write(c);
end.
pascal学徒 QQ406613914
上面的程序不符合你的题意！！！让我来回答：
program huanshu;
var
a,b,c,d,i,t:integer;
begin
write('Qing Shu Ru Yi Ge San Wei Shu:');
readln(d);
a:=d div 100;
b:=d div 10 -a*10;
c:=d-a*100-b*10;
for i:=1 to 3 do
begin
if a>b then
begin t:=a; a:=b; b:=t; end;
if b>