在1000到10000内的整数能被147或197整除的个数是多少?

问题描述:

在1000到10000内的整数能被147或197整除的个数是多少?

107用pascal解决的程序:program lx;vari :integer;total :integer;beginfor i:=1000 to 10000 doif (i mod 147=0) or (i mod 197=0) thentotal:=total+1;writeln(total);end.