turbo pascal的问题

来源：百度知道 编辑：UC知道 时间：2024/05/09 08:53:59
我是初学者,请教一个问题:
输出1-999中能被3整除,至少有一位是5的所有整数

program test;
var
a,b,c,i:integer;
hu:array[1..999] of boolean;
begin
for i:=1 to 999 do hu[i]:=false;
for i:=1 to 999 do
begin
begin
a:=i div 100;
c:=i mod 10;
b:=(i-100*a-c) div 10;
end;
if ((a=5) or (b=5) or (c=5)) and (i mod 3=0) then hu[i]:=true;
end;
for i:=1 to 999 do if hu[i]=true then write(i,' ');
readln();
end.
运行过了吗？
分给我。