作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 05:37:19
pascal给出一个整数n,其中n小于等于maxlongint请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数,算出总和,答案有可能超出longint
这题应该是考or的运用
var
n,i:longint;
begin
readln(n);
for i:=1 to n do
if (i mod 2=0) or (i mod 3=0) then write(i,' ');
writeln;
end.