var i,n:longint;
begin
readln(n);
while n>1 do
begin
if odd(n) then n:=3*n+1 else n:=n div 2;
inc(i);
end;
writeln(i);
end.
驗(yàn)證角谷猜想
驗(yàn)證角谷猜想
對(duì)于一個(gè)正整數(shù)n,若n為奇數(shù)則乘3加1,若n為偶數(shù)則除以2,有限步后n=1.
輸入（jg.in）:
n,表示輸入的整數(shù).
輸出（jg.out）：
m,表示經(jīng)過(guò)m步后n=1.
[輸入輸出樣例]
輸入樣例
100
輸出樣例
25
用pasacl語(yǔ)言!
對(duì)于一個(gè)正整數(shù)n,若n為奇數(shù)則乘3加1,若n為偶數(shù)則除以2,有限步后n=1.
輸入（jg.in）:
n,表示輸入的整數(shù).
輸出（jg.out）：
m,表示經(jīng)過(guò)m步后n=1.
[輸入輸出樣例]
輸入樣例
100
輸出樣例
25
用pasacl語(yǔ)言!
其他人氣：118 ℃時(shí)間：2020-05-09 00:48:46
優(yōu)質(zhì)解答
我來(lái)回答
類似推薦
- c++編程驗(yàn)證“角谷猜想”
- 看看我對(duì)角谷猜想的證明
- 用VB編程驗(yàn)證“角谷猜想”.“角谷猜想”指出,對(duì)于一個(gè)自然數(shù),若該數(shù)字為偶數(shù),則除以2；若該數(shù)為奇數(shù),則乘以3并加1；將得到的數(shù)再重復(fù)按該規(guī)則運(yùn)算,最終可得到1.編寫程序,對(duì)給定的一個(gè)數(shù)n,驗(yàn)證這一過(guò)程.
- 角谷猜想我想改變一下
- 若f(sinx)=cos2x,那么f(cos x)=?
- 將拋物線y=x2+bx+c先向右平移2個(gè)單位,再向上平移3個(gè)單位得到的拋物線是y=x2+4x+5 求b,c的值分別是多少?
- 用反證法證明命題“若a、b∈N,ab能被5整除,則a,b中至少有一個(gè)能被5整除.
- 用對(duì)牛彈琴造句.
- 鐵塊是銀白色的,鐵粉是黑色的；銀片是銀白色的,銀粉是黑色的.所有金屬粉末都是黑色的嗎?
- 如圖（1）,點(diǎn)M、N分別是正方形ABCD的邊AB、AD的中點(diǎn),連接CN、DM． （1）判斷CN、DM的關(guān)系
- 給鐵器表面噴漆膜,可以防止鐵器表面銹蝕,現(xiàn)有150立方厘米的漆涂了5平方米的表面,則漆膜的厚度約是多少?)
- If you can with you,I would rather all the stars all fall; because your eyes,my life,the brighte
猜你喜歡
- 1銳角三角形怎么畫
- 2把You should not watch too much TV .改成祈使句
- 3書是燈,讀書照亮了前面的路；書是橋,讀書接通了彼此的岸；書是帆,讀書推動(dòng)了人生的船.仿寫,
- 4今天就要的!
- 5地球儀有什么好處和用處
- 61,2,4,8,16,32,64,128,256,512,1024 ,2048.4056.8112.16224.32448.之間有什么規(guī)律 第2010個(gè)是多少?
- 7世界上第四長(zhǎng)的河流
- 8數(shù)軸上表示相反數(shù)的兩個(gè)和原點(diǎn)有什么關(guān)系?
- 9【F(X)=a的X次方-X*Lna】的導(dǎo)數(shù)怎么求
- 10人教版高一化學(xué)必修一哪幾課最重要,要具體章節(jié)名
- 11If you have some thing,say!If nothing,go home!
- 12在天正建筑里怎樣生成立面圖 剖面圖