首页 知道 学习正文

3n+1问题pascal解答

学习 时间:2026-03-30 13:29:36 阅读：8647
3n+1问题pascal解答Description3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题（Collatz problem）也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutani算法问题、Thwaites猜想或者Ulam问题.（1）输入一个正整数n；（2）如果n=1则结束；（3）如果n是奇数,则n变为3n+1,否则n变为n/2；（4）转入第（2）步.克拉兹问题的特殊之处在于：尽管很容易将这个问题讲清楚,但直到今天仍不能保证这个问题的算法对所有可能的输入都有效——即至今没有人证明对所有的正整数该过程都终止.输入描述 Input Description第一行是一个整数T.表示输入数据的组数.第二行是T个正整数n.输出描述 Output Description对于每个正整数n,每行输出一个数s,表示n通过多少步变换会变成1,如果n无法变成1,则输出-1.样例输入 Sample Input31 2 3样例输出 Sample Output017数据范围及提示 Data Size & Hint1
提问 回复

最佳回答

大气的猫咪

寂寞的裙子

2026-03-30 13:29:36

program wapiknow;var n,x,i,op:longint;begin    readln(n);    for i:=1 to n do    begin        read(x);        op:=0;        while x<>1 do        begin            if (x mod 2=1) then x:=3*x+1            else x:=x div 2;            inc(op);        end;        writeln(op);    end;end。希望我的回答能帮到你。

最新回答共有2条回答

  • 幸福的冥王星
    回复
    2026-03-30 13:29:36

    program wapiknow;var n,x,i,op:longint;begin    readln(n);    for i:=1 to n do    begin        read(x);        op:=0;        while x<>1 do        begin            if (x mod 2=1) then x:=3*x+1            else x:=x div 2;            inc(op);        end;        writeln(op);    end;end。希望我的回答能帮到你。

上一篇 An exponential relaxation procedure

下一篇 蜣螂怎么读？