杭州交通信息网深圳到香港多久时间:小学的简单程序，到底哪里不对？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 07:26:48
Program e6_5(input,output);
var
a:integer;
begin
for a:=2 to 100 do
while a<>1 do
if a mod 2=0 then a:=a/2
else a:=3*a+1;
end;
end;
writeln(‘a=1’);
end.
是pascal里的！！！
var
a:integer;
begin
for a:=2 to 100 do
while a<>1 do
if a mod 2=0 then a:=a/2
else a:=3*a+1;
end;
end;
writeln(‘a=1’);
end.
是pascal里的！！！
a定义成整型，a/2计算结果是实型的，类型不符合，应该用a div 2算出是整型的
还有，多出了一个end，if和else 里面都只有一句话，连在一起写不用end
while 和 end 不能连用
你以前学的B语言把
没事用那么多end干吗