给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/10 15:59:55

给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序.
如输入5，就输出5（步数）

var n,t:longint;
begin
read(n);t:=0;
while n1 do
if n mod 2=0 then begin t:=t+1; n:=n div 2; end
else begin t:=t+1; n:=n*3+1; end;
write(t);
end.

给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序. 3n+1 对于任意大于1的自然数n,若n为奇数,则将n将变为3n+1,否则变为n的一半.经过若干次这样的变换,一【3n+1】问题：猜想：对任意大于1的自然数n,若n为奇数,则将n变为3n+1,否则变为n的一半.经过若干次这求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. 给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题 IF语句2 输入整数n,如果n是偶数,则输出“n is even.”,否则输出"n is odd 如果,n是大于2的整数,计算1/(n-1)(n-2)+1/(n-2)(n-3)+1/(n-3)(n-4)+……+1/(n pascal程序设计输入一个整数n,n 证明不等式：(1/n)^n+(2/n)^n+(3/n)^n+.+(n/n)^n 当n为正偶数,求证n/(n-1)+n(n-2)/(n-1)(n-3)+...+n(n-2).2/(n-1)(n-3).. 用户输入一个正整数n,若n为奇数,程序计算出数列1+3+5+...+n之和；若n为偶数,程序则计算2+4+...+n之和 C语言填空题:定义一个判断是否是偶数的函数even(n),如果整数n是偶数,返回1,否则返回0;