作业帮 > 综合 > 作业

用pascal输出1-999中能被三整除,且至少有一位数字是5的数.这我会.可是一行输出10个,场宽为4怎么办?

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/18 19:56:38
用pascal输出1-999中能被三整除,且至少有一位数字是5的数.这我会.可是一行输出10个,场宽为4怎么办?
用pascal输出1-999中能被三整除,且至少有一位数字是5的数.这我会.可是一行输出10个,场宽为4怎么办?
for i:=1 to 总数量 do begin
write(a[i]:4);
if i mod 10=0 then writeln;
end;
再问: 总数量是符合要求的数的数量吗?
再答: 是的,把符合的数都存放在一个数组中
再问: 那a是什么数据类型?你能把整个问题的程序给我吗?
再答: 其实也可以不用数组。。。。。。 var i,j,t:longint; s:string; begin for i:=1 to 999 do begin str(i,s); if ((i mod 3=0) and ((s[1]='5') or (s[2]='5') or (s[3]='5'))) then begin t:=t+1; write(i:4); if t mod 10=0 then writeln; end; end; end.