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

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.

你好！ 由于和会大于longint，所以设到qword（1~2^63-1) var n,i,s:longint; begin read(n); for i:=1 to n do if (i mod 2=0) or (i mod 3=0) or (i mod 5=0) then s:=s+i; writeln(s); end. 希望对你有所帮助，望采纳。