2013信息奥赛第十次课(循环一).pptVIP

直到循环（REPEAT－until语句） 用repeat-until 语句可以实现“直到型循环”。 repeat-until语句的含义是：“重复执行循环，直到指定的条件为真时为止”。 　　　 * * 题17：任意输入一个三位整数，再把它的次序打乱重新组合一个新的三位整数，使其值最大。 Input 输入只有一行，包括1个整数。 Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。 Sample Input 470 Sample Output 740 思路：把三位拆除出来，求出最大、中间、最小 program rm4; var x,g,s,b,y,t:integer; begin readln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if bs then begin t:=b;b:=s;s:=t; end; if bg then begin t:=b;b:=g;g:=t;end; if sg then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y); end. program rm4; var x,g,s,b,y,t:integer; begin readln(x); g:=x mod