原题目：
编写一个R程序(函数).输入一个整数n,如果n≤0,则中止运算，并输出一句话:“要求输入一个正整数”;否则，如果n是偶数，则将n除2,并赋给n;否则，将3n+1赋给n.不断循环，只到n=1,才停止计算，并输出一句话:“运算成功”.这个例子是为了检验数论中的一个简单的定理.

输入到R中（我不太清楚到底哪里出了问题，应该如何改）：


为方便大神们看，我复制一下我的代码，黏贴在这里：

count<-function(n)

{

if(n<=0)

print("要求输入一个正整数“）

else{

repeat{

if(n%%2==0)

n<-n/2

else

n<-(3*n+1)

if(n==1)break

}

print("运算成功")}

}