pascal给出一个整数n,其中n小于等于maxlongint请求出1~n中,是2的倍数,或者是3的倍数,或
答案:2 悬赏:40 手机版
解决时间 2021-02-13 07:52
- 提问者网友：不爱我么
- 2021-02-13 00:47
pascal给出一个整数n,其中n小于等于maxlongint请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数，算出总和，答案有可能超出longint
最佳答案
- 五星知识达人网友：山有枢
- 2021-02-13 02:22
这题应该是考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.
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.
全部回答
- 1楼网友：行雁书
- 2021-02-13 02:48
你好！
由于和会大于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.
希望对你有所帮助，望采纳。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯