Question

用pascal语言：输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重

输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
program lx_3_2;
var
a,b,c,x:integer;
begin
write('Please input the number');
readln(x);
a:=x div 100;
b:=(x mod 100)div 10;
c:=x mod 10;
if(a>=b)and(b>=c)then writeln(a,b,c);
if(a>=c)and(c>=b)then writeln(a,c,b);
if(b>=a)and(a>=c)then writeln(b,a,c);
if(b>=c)and(c>=a)then writeln(b,c,a>;
if(c>=a)and(a>=b)then writeln(c,a,b);
if(c>=b)and(b>=a)then writeln(a,b,a);
readln;
end.
这是我编的，我才初学，别笑复杂。可是哪里错了? 他说有错，我找来找去找不到。他的错误信息是语法错误，（14,2）fatal：语法错误，//太长了不打了//“）”expected but
if found

Answer 1

if(b>=c)and(c>=a)then writeln(b,c,a>; ‘>’应该是‘）’； 最后一行 writeln(a,b,a); 应该是（c,b,a）;
倒数第二行 的readln 可以删去。
求采纳

追问

readln是停留在程序画面……

追答

删去也可以...

追问

真麻烦，所以没采纳你

Answer 2

倒数第四行去掉