三）完善程序题
1. 从键盘输入一个三位数，输出由这个三位数各位数位上的数字排列出来的最小三位数。
   如输入318，则输出138。如输入592，则输出269
【程序清单】
input n
a =              
b =              
c =              
if a > b then swap a, b
if a > c then swap a, c
if b > c then swap b, c
xn = a * 100 + b * 10 + c: print xn: end

2. 下面程序是利用随机函数产生10个100～200之间（包含100与200）的随机整数，打印其中7的倍数的数并求出它们的总和。
【程序清单】
randomize timer
for m = 1 to 10
  x=                         
  if                           then
    print x;
    k = k + x
  end if
next m: print
print“k=”;k: end

3. 将厚0.5mm，面积足够大的纸，最少对折多少次可达到珠峰高度（8848m）。
   h=0.5 : n=0
   do
      n=n+1  
      h=h*2  
   loop until h>=8848000000
   print “n=”;n
end

4. 自然数1+2+3+……+n恰好等于6105，求n的值。                  (110)
   s=0 : n=0
   do 
      n=n+1
      s=s+n
   loop until s=6150  
   print “n=”;n
   end

5. 将12,43,33,92,87,5,63,77这8个数累加，每加完一个数之后即打印当时的累加和。最后输出“s =”总的累加和。;
【程序清单】
n = 8: s = 0
dim a(n)
for i = 1 to n
  read            
next
for i = 1 to n
  s =             : print              
next
print "s ="; s
end
data 12,43,33,92,87,5,63,77

6. 求s=0+1+1+2+3+5+8+13+21+34+55
【算法提示】这是意大利数学家斐波那契提出的数列。该数列：
第1个数是0
第2个数是1
从第3个数起其值为前相邻的两个数的和：a(n)=a(n-1)+a(n-2) 
【程序清单】
input n
dim         
a(1) = 0: a(2) = 1
for i = 3 to n
  a(i) =                       
next i

for i = 1 to n
    print                        ;
next i
print 
end
[size=6][/size]