从500开始,求被3,5,7除余数均为2的前50个数

从500开始,求被3,5,7除余数均为2的前50个数

Private Sub Command1_Click()
Dim a, i As Integer
Dim s As String

For a = 500 To 10000
If a Mod 3 = 2 And a Mod 5 = 2 And a Mod 5 = 2 Then
s = s & a & " "
i = i + 1
If i >= 50 Then Exit For
End If
Next
Label1.Caption = s
End Sub

512 527 542 557 572 587 602 617 632 647 662 677 692 707 722 737 752 767 782 797 812 827 842 857 872 887 902 917 932 947 962 977 992 1007 1022 1037 1052 1067 1082 1097 1112 1127 1142 1157 1172 1187 1202 1217 1232 1247

delpgi 程序
－－－－－－－－－－－－－－－－－
var i,j:integer;
Nu:array[1..50] of integer;
.
.
.
.
i:=1;
j:=500;
while i <=50 do
begin
if j mod 3 = 2 then
begin
nu[i]:=j;
inc(i);
end
else if j mod 5 =2 then
begin
nu[i]:=j;
inc(i);
end
else if j mod 7 =2 then
begin
nu[i]:=j;
inc(i);
end ;
inc(j);
end;
end;

void main()
{
int i,arr[50],b=500,a=0;
while(a<50)
{
if(b%3==2&&b%5==2&&b%7==2)
{
arr[a]=b;
a++;
b++;
}
b++;
}
for(i=0;i<50;i++)
printf("%d ",arr[i]);
}
我运行过,没问题!

这是JAVA 形式的 你若想要C形式的 只要把里面的 主要内容拿出来就可以了

public class Sun
{
public static void main(String[] args)
{
int a=0;

co:
for(int b=500;true;b++)
{
if(b%3==2||b%5==2||b%7==2)
{
System.out.print("b="+b+" " );
a++;
if(a%5==0)
{
System.out.print("\n");
}
if(a==50)
{
break;
}
}
}

}
}

void main()
{
int n=500/(3*5*7);
int count=50;
int i;
if (n*3*5*7+2>500)
{
prinf(3*5*7*n+2);
count--;
}

for(i=1;i<=count;i++){
printf((n+i)*3*5*7+2);
}
}

}
因为3，5，7不可以互相除，都余2的话只可能3*5*7的倍数+2，我们只要求一下500是4个3*5*7，也就是N=4，也就是说只要5*3*5*7+2，6*3*5*7+2依次就可以了。。。

527 632 737 842 947 1052 1157 1262 1367 1472 1577 1682 1787 1892 1997 2102 2207 2312 2417 2522 2627 2732 2837 2942 3047 3152 3257 3362 3467 3572 3677 3782 3887 3992 4097 4202 4307 4412 4517 4622 4727 4832 4937 5042 5147 5252 5357 5462 5567 5672

int i=0
a=500
while(ture)
{ if(i<50)
{
if(i % 3 == 2 && i % 5 == 2 && i % 7 == 2)
printf(i)
a++
}else break
}