pascal编程很简单的一道题，就是有个地方错了，求高手指点！五十悬赏！今晚就告诉答案，越快分越多！
答案:1 悬赏:80 手机版
解决时间 2021-11-26 01:15
- 提问者网友：谁的错
- 2021-11-25 05:17
pascal编程很简单的一道题，就是有个地方错了，求高手指点！五十悬赏！今晚就告诉答案，越快分越多！
最佳答案
- 五星知识达人网友：冷風如刀
- 2021-11-25 06:31
var n,i,j:longint;
a:array[1..52] of boolean;
begin
readln(n);
fillchar(a,sizeof(a),true);
for i:=2 to n+1 do begin
for j:=i to 52 do begin
if j mod i=0 then a[j]:=not(a[j]);
end;
end;
for i:=1 to 52 do begin
if a[i] then
write(1,' ') else write(0,' ');
end;
end.
把两个循环的顺序调换一下就好。我没有debug，电脑还没有装Pascal编译器，如果有问题再提问的话我就晚上回家给你调试啦~~
a:array[1..52] of boolean;
begin
readln(n);
fillchar(a,sizeof(a),true);
for i:=2 to n+1 do begin
for j:=i to 52 do begin
if j mod i=0 then a[j]:=not(a[j]);
end;
end;
for i:=1 to 52 do begin
if a[i] then
write(1,' ') else write(0,' ');
end;
end.
把两个循环的顺序调换一下就好。我没有debug，电脑还没有装Pascal编译器，如果有问题再提问的话我就晚上回家给你调试啦~~
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯