输入自然数n,求前n个合数(非素数),其素因子仅有2,3,或5。 pascal 求答案!!!!!!!!!!!!!!!!!!!!!!!!

这个应该用过程
procedure xxx(n:integer);
i,t:integer;
begin
for i:=1 to n do
begin
t:=i;
while (t mod 2)=0 do t:=t div 2;
while (t mod 3)=0 do t:=t div 3;
while (t mod 5)=0 do t:=t div 5;
if t=1 then writeln(i);
end;

如果要把答案存在数组里,就这样:
procedure xxx(n:integer);
i,t,k:integer;
begin
k:=0;
for i:=1 to n do
begin
t:=i;
while (t mod 2)=0 do t:=t div 2;
while (t mod 3)=0 do t:=t div 3;
while (t mod 5)=0 do t:=t div 5;
if t=1 then begin K:=k+1;a[k]:=i;end;
end;
本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn ,本贴地址：http://bbs.zdnet.com.cn/viewthread.php?tid=711506

if chenshengyuan=0 then writeln(yes);
else
chenshengyusn:=0-1111;