杭州交通信息网电缆井防火堵料计算:PASCAL题目：
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 22:50:43
计算1—1000之间能同时被3和5整除的整数的和。
var
i:longint;
s:longint;
begin
s:=0;
for i:=1 to 1000 do begin
if (i mod 3=0) and (i mod 5=0) then s:=s+i;
end;
writeln(s);
end.
很简单,自己算吧
到这个QQ群里：24813386
由于3，5互质，所以能同时被三，五整除的数必可被15整除，反之亦然。1——1000中共有66个可被15整除。是：15，15×2，15×3，……，15×66。
和为：15×（1＋2+……＋66）＝15×66(1+66)/2=33165
var
i,total:longint;
begin
total:=0;
for i:=1 to 1000 do begin
if i mod 15=0 then total:=total+1;
writeln(total);
end.