求助PASCAL高手

来源：百度知道编辑：UC知道时间：2024/09/18 06:53:11

var
x,b,i,j,m,n:integer;
a:array [1.1000] of integer;
begin
read(m,n);
x:=0;
repeat
for i:=2 to m do
if m mod i=0
then
x:=x+1;
if x=2
then
begin
j:=j+1;
a[j]:=m;
x:=0;
m:=m+1;
end
else
x:=0;
m:=m+1;
until m-n=0;
j:=b;
for j:=1 to b do
writeln(a[j]);
end.
我编的是求出M与N之间的所有素数
但是不知道那里错了
希望各位大虾指点指点
十分感谢
本人在这里也想拜师
QQ号：364625784
希望有人愿意教我，谢谢～～～～～

以下是修改后的程序，请自己对比二者的不同吧！

var
x,b,i,j,m,n:integer;
a:array [1..1000] of integer;
begin
read(m,n);
j:=0;
x:=0;
repeat
for i:=1 to m do
if m mod i=0 then x:=x+1;
if x=2 then
begin
j:=j+1;
a[j]:=m;
end;
x:=0;
m:=m+1;
until m-n=0;
b:=j;
for j:=1 to b do
writeln(a[j]);
end.

求助~PASCAL高手来求助PASCAL高手 PASCAL高手进来，求助，有分拿呀 pascal求助 PASCAL 求助超难pascal题，求助！（高手进） Pascal循环作业求助求助PASCAL题！！！ Pascal 完成程序求助求助!Pascal题目