请帮帮忙这几道题怎么编程 作业1：同时满足下列三个条件的分数共有多少？ 1）大于1/6，并且小于1/5； 2）分子和分母都是质数（素数）； 3）分母是两位数。 作业2： n是具有下述性质的最小整数：它是15的倍数；而且每一位数字都是0或8。求数n? 作业3：1998个小朋友围成一圈，从某人开始，逆时针方向报数，由1报到64，再依此由1报到64，一直报下去，直到每人报过10次为止。问： 1）有没有报过5，又报过10的人？有多少？ 2）有没有报过5，又报过11的人？有多少? 作业4：排列数规则如下表，数2004在何颜色下？ 赤 橙 黄 绿 青 兰 紫 1，2，3，4，5，6，7， 13 12 11 10 9 8 空 空 14 15 16 17 18 19 25 24 23 22 21 20 空 空 26 27 28 29 30 31 ··· ··· ··· ··· ··· ··· 作业5：已知6个数依次是：13，12，15，25，20，31， 每相邻两数相乘得到5个数，再用所得的5个数每相邻两数相乘得到4个数，依此类推，最后得到1个数，这个数是几？

[此贴子已经被赵东明于2004-06-15 15:25:01编辑过]

共同努力，共同提高。

[此贴子已经被作者于2004-06-15 15:26:58编辑过]

作业2:

PRIVATE N1,N2,N3,N4,N5 N1=1 DO WHILE .t. N1=n1+1 N2=ALLTRIM(STR(15*n1)) N3=1 N4='' N5='' DO WHILE N3<=LEN(N2) N4=SUBSTR(N2,N3,1) N3=N3+1 IF N4='8' OR N4='0' N5=N5+'T' ELSE N5=N5+'F' ENDIF ENDDO IF AT('F',N5)<1 ?? N2+' ' EXIT ENDIF ENDDO RETURN

作业3：1998个小朋友围成一圈，从某人开始，逆时针方向报数，由1报到64，再依此由1报到64，一直报下去，直到每人报过10次为止。问： 1）有没有报过5，又报过10的人？有多少？ 2）有没有报过5，又报过11的人？有多少?
    答：1）没有报过5又报过10的人。2）报过5又报过11的有157人.

把条件写好了就行了