200—500间,能被13整除但不能被17整除的数的个数VBbiancheng

问题描述:

200—500间,能被13整除但不能被17整除的数的个数VBbiancheng

VB语法忘了,给伪代码
i=0;
for n = 200 to 500
if (n mod 13 == 0 )&&(n mod 170) then
i=i+1;
print i;