Question

pascal 如何换行？

题目：输出1至n之间被3除余2的数，每行输出5个数。
"输出1至n之间被3除余2的数“已经完成，就是不知道怎样才能”每行输出5个数“。
who can tell me？

Answer 1

每次输五个数 就 writeln一次， 可以记录一下该行输了几个数。
k:=0;
for i:=1 to n do
begin
if i mod 3=2 then
begin
inc(k); write(i,' ');
end;
if k=5 then
begin
writeln; k:=0;
end;
end;

Answer 2

I can！
比如你已经把所有满足条件的数存进a数组，然后m是满足这个条件的数的数量。
for i:=1 to m do
if i mod 5=0 then writeln(a[i]) else write(a[i],' '）;
还有，摩尔庄园是白痴游戏，以后别去碰他了

Answer 3

枚举