2. 程序功能：求200到500间，能被13整除但不能被17整除的数的个数

实际获得胜利

procedure TForm1.Button2Click(Sender: TObject);
以delphi为语言为例:
var
i,isum:integer;
begin
//求200到500间，能被13整除但不能被17整除的数的个数
isum:=0;
for i:=200 to 500 do
begin
if ((i mod 13)=0 ) and ((i mod 17)<>0 ) then
isum := isum+1;
end;
Label1.Caption :='isum='+ inttostr(isum);
end;
-----------------------------------
结果为 21

----------------------------------

//C++写的，VC中测试通过
//求200到500间，能被13整除
//但不能被17整的数的个数

#include <iostream>
using namespace std;
void main()
{
int result=0;
for(int a=200;a<501;a++)
{
if (!(a%13)&&a%17) //条件判断
result++;
}
cout<<result<<endl;
}

//结果：21