取任意正整数，若是偶数，则除以2，否则乘以3加1

input x
do
if x mod 2=0 then x=x/2 else x=x*3+1
until x=1
print "end"
end

干什么的

什么语言?

ASP程序:
<form id="form1" name="form1" method="post" action="">
<input type="text" name="numb" />
<input type="submit" name="Submit" value="提交" />
</form>
<%
sub sum(i)
n=n+1
Response.Write "第"&n&"次判断i="&i&"<br>"
if i<>1 then
if((i mod 2)=0) then
i=i/2
else
i=i*3+1
end if
sum(i)
else
Response.Write "最终运行结果为i=1,程序终止"
end if
end sub
Dim sumb, n
n=0
sumb=Cint(Request("numb"))
if sumb<>0 then
Response.Write "您输入的是："&sumb&"<br>"
sum(sumb)
end if
%>

当输入21时,运行结果为:

您输入的是：21
第1次