作业帮 > 数学 > 作业

给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/05/01 20:04:46
给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和
用pascal做
var i,n,j,k:longint;
begin
j:=0;
readln(n);
for i:=1 to n do begin
read(k);
if (k mod 2=0) or (k mod 3=0) or (k mod 5=0) then j:=j+k;
end;
writeln(j);
end.