UC知道pascal语言的错题
来源：百度知道 编辑：UC知道 时间：2024/05/10 23:53:54
怎么订正啊！！！！！！！！！！！！！！！！
program laiyixiu;
var i,n,j:integer;
n:=0;
j:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then j:=i+j else n:=i+n;
i:=i+1;
end;
writeln('n:',n,' ','j=',);
readln;
end.
program laiyixiu;
var i,n,j:integer;
n:=0;
j:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then j:=i+j else n:=i+n;
i:=i+1;
end;
writeln('n:',n,' ','j=',);
readln;
end.
没写begin
writeln 写法有误
正确程序如下：
program laiyixiu;
var i,n,j:integer;
begin
n:=0;
j:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then j:=i+j else n:=i+n;
i:=i+1;
end;
writeln('n:',n,' ','j=',j);
readln;
end.
var i,j,n:integer;
j 和n要用逗号点开
writeln('n:',n,' ','j=',j);
while语句前关于i 的描述欠佳，前面把1赋值给i，后面i的值便只能是i，应当根据题意将i调节为变量。
writeln('n:',n,' ','j=',j);