Question

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

Answer 1

107

用pascal解决的程序：

program lx;

var

i :integer;

total :integer;

begin

for i:=1000 to 10000 do

if (i mod 147=0) or (i mod 197=0) then

total:=total+1;

writeln(total);

end.