程序填空[1]

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON ? \输入一个整数：n=855\ n=855 OUT=-1

**********Program**********

********** End **********

DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF ---------------------- store 1 to s for i=2 to n-1 if(n%i=0) s=s*i endif endfor ? \

out=s

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：编程统计一个长度为2的字符串在另一个字符串中出现的次数。 * 例如，假定输入的字符串为：dfgasdaszx67asdmklo, * 字符串为：as,则应输出3。 * 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

str1=\

? \主字符串为：\str2=\

? \子字符串为：\OUT=-1

**********Program**********

********** End **********

DO YZJ WITH OUT SET LOGERRORS OFF

SET TALK OFF---------------------- i=0 n=0

do while i<=len(str1)-1 if str2==substr(str1,i,2) n=n+1 endif i=i+1 enddo out=n ? out

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：编程判断整数x是否是同构数。若是同构数，结果返回1； * 否则返回0。(x的值要求不大于100)

* 所谓“同构数”是指这样的数，这个数出现在它的平方数的右边。 * 例如：输入整数5，5的平方数是25，5是25中右侧的数，所以5是 * 同构数。。

* 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

? \输入整数x=25进行判断\x=25 OUT=-1

**********Program**********