因为n是正整数，不考虑n=0的情况，判断奇偶数只要取余就可以了
vc：
int getvalue(int n)
{
int value;
if n%2==0
{
value = n/2;
}
else if n%2==1
{
value = n*3+1;
}
return value;
}
pascal(delphi):
function getvalue(n:integer):integer;
begin
if (n mod 2)=0 then
begin
result :=n div 2;
end
else if (n mod 2)=1 then
begin
result := n*3+1;
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024