关于花瓶的绘画作品:大家来找茬（一道简单的pascal的素数问题）

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 05:16:37

大家看看我这个程序错在哪里

题目：成等差的素数：寻找6个成等差级数且小于160的素数。

var
a:array[1..160] of boolean;
x,y,i,j,k:integer;

begin
for i:=2 to 160 do
a[i]:=True;
for i:=2 to 160 do
for j:=2 to i-1 do
if i mod j=0 then a[i]:=False;
for k:=1 to 26 do
for i:=1 to 160-5*k do
if (a[i]) and (a[i+k]) and (a[i+k*2])
and (a[i+k*3]) and (a[i+k*4]) and (a[i+k*5])
then write(i,i+k,i+k*2,i+k*3,i+k*4,i+k*5);
end.
程序运行死循环，我把后面一段用大括号括起来看，前面找素数的那段程序没有问题，可是后面的程序也应该没错啊……

不可能啊！！我试了，没有死循环啊，可是也无法求解罗

大家来找茬（一道简单的pascal的素数问题）大家来找茬哪里有下载的？一道简单的pascal题目,帮忙解! 一道简单的数学题，大家来帮忙一道简单的数学题，大家来帮忙哪里有大家来找茬的游戏啊?????????????????? 大家来找茬的硬盘版叫什么，哪下载？请问到哪下载街机版的《大家来找茬》请问到哪里下载街机版的《大家来找茬》（大家来找茬）游戏有连网玩的吗