Question

free pascal求和问题给出一个整数n，其中n小于等于2147483647请求出1~n中，是2的倍数，或者是3的倍

Answer 1

var n,i:longint;

x:int64;

begin

readln(n);

for i:=1 to n do

if (i mod 2=0)or(i mod 3=0)or(i mod 5=0) then x:=x+i;

writeln(x);

end.