UC知道帮忙看看哪里出错了？
来源：百度知道 编辑：UC知道 时间：2024/06/15 01:52:39
帮我看看哪有错？？？
打印1 到100 的所有质数（pascal语言）
program test2;
var k,i,j:integer;
begin
for j:=1 to 100 do
begin
k:=true
for i:=2 to j-1 do
begin
if j mod i =0 then
k:=false
break;
end;
end;
if k then write(j);
readln;
end.
谢！！
打印1 到100 的所有质数（pascal语言）
program test2;
var k,i,j:integer;
begin
for j:=1 to 100 do
begin
k:=true
for i:=2 to j-1 do
begin
if j mod i =0 then
k:=false
break;
end;
end;
if k then write(j);
readln;
end.
谢！！
首先，K应该赋值为布尔类型
VAR K:BOOLEAN;
估计就是这个问题
如果还有问题就试试别人的吧
貌似
end;
if k then write(j);
这两句要调换下.我没学pascal,但看着差不多.
在这儿
begin
if j mod i =0 then
k:=false
break;
end;
应为
begin
if j mod i =0 then
begin
k:=false;
break;
end;
end;
k:=true改为k=true；
k:=false 改为k=false；