帮我编一个pascal的小程序

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:04:59
要求判断一个数n的奇偶，若为奇数，则n=n*3+13，若为偶数，则n一直除以2，直到n为奇数为止，并打印出结果。

program number;
var n:integer;
begin
readln(n);{输入n}
if n mod 2=1 then n:=n*3+13{如果n是奇数则n=n*3+13}
else{否则执行循环}
repeat{重复n/2}
n:=n div 2;
until n mod 2=1;{直到n为奇数}
writeln(n);{输出n}
end.

program test;
var
n:longint;
begin
readln(n);
if odd(n) then n:=n*3+13 else
while odd(n) do n:=n div 2;
writeln(n);
end.

呵呵 这个不是高中生的作业嘛，懒鬼啊。

太简单了