* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
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**********