查人人中国名人网地球冒险3:编写一个程序，列出1到1000以内，求59的余后为1的质数。
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 13:39:38
C语言写的
直接打印在屏幕上的
int main()
{
int i;
int num=59;
for(i=0;i<=1000;i++)
{
if(i%num==1) printf("%d\n",i);
}
return 0;
}
VB写的
Dim i As Integer,j As Integer,N As Integer
N=59
For i=1 To 1000
F=0
For j=1 To Sqr(i)
If i/j=i\j Then F=1:Exit For
Next j
If F=0 Then
If i Mod N=1 Then Print i;" ";
End If
Next i
http://zhidao.baidu.com/question/9226030.html
呵呵 昨天刚解决的质数问题
你自己改一下判断输出的语句吧
C语言版:
void main()
{ int i;
for(i=1;i<1000;i++)
if(i%59==1) printf("%5d",i);
getch();
}
Pascal:
Var i:integer;
Begin
For I:=1 to 1000 Do
if i mod 59=1 then write(i);
End.