粗略地（大写字母所示）：
STORE 1 TO c,x
do while .t.
input"任意输入正整数" to a
if int(a)=a.and.a>0
EXIT
else
wait "请输入正整数"
loop
endif
enddo
do while .t.
input"任意输入正整数" to b
if int(b)=b.and.b>0
EXIT
else
wait "请输入正整数"
loop
endif
enddo
if a=b
for q=1 to a
x=x*q
endfor
endif
if a>b
c=b
b=a
a=c
endif
for i=1 to a
x=x*i
endfor
s=x
for j=a+1 to b
x=x*j
s=s+x
endfor
retu
最新问答： 某件商品售价每件900元,为了参与竞争,商品按售价的九折并让利40元销售,此时仍可以获利10%,商品进价多 如图1,在△ABC中,角ACB=2∠B,射线AO平分∠BAC交BC于点D,点M是直线BC上的动点 下列哪种现象反映出消费者与生产者间的关系（ ） 英语 请问leave后的to什么意思? 2厘米是1米的百分之一 ( 对或错 ) 已知向量a=（cosa,-1/2） 向量b=（√3sinx,cosx）,设f（x）=向量a*向量b 已知y=根号7-x+根号x-7 +5求x+y的值 凶恶的近反义词是什么 找出并改正下列短语中 找出并改正下列短语中的错别字.稍然潜行 朦胧不青 乌云弥慢 惊惶矢措 __________ ___ love is around us的作文 蜡烛燃烧的化学方程式 求圆拆分成三角形能拼什么图形并求出面积 哪个4位数先除以80,再减去整数,剩下的小数(小数点后面的数),乘以80,等于18 若a,b互为相反数,c,d互为负倒数,求三次根号a³+b³+三次根号cd+1的值 如图,在△ABC中,若∠B=40°∠C=80°AD平分∠CAB,求∠CAB的度数 把树叶绿得发亮改为比喻句怎么改 六一班同学今春植树的成活率是百分之九八,死亡四棵,共植树多少颗 在实数范围内因式分解x^4-4 be 现在进行时形式这里的be是作为动词来看,而非什么be+动词ing,单单只是be的现在分词 吊车把重物向上吊,这个过程是拉力做功还是重力做功?这个过程重力做功是不是0J?当吊车把重物向下放又如何呢?
