初中七年級數學編程題

n，s:longint；

開始

讀作(n)；

而s & lt& gt1 do

開始

如果是奇數(n ),那麽開始

s:= n * 3+1；

writeln(n，' *3+1= '，s)；

結束

否則開始

s:= n div 2；

writeln(n，'/2= '，s)；

結束；

n:= s；

結束；

結束。