丑数用pascal语言咋么做

来源：百度知道 编辑：UC知道 时间：2024/06/15 07:15:21
所谓丑数，就是那些因子只含2，3，5的数。1，2，3，4，5，6，8，9，10，12，15是最前面的11个丑数。为方便起见。将1也看作是丑数。 请编写一个程序寻找并打印第N个（N<200）个丑数。

var i,j,n:longint;

function pd(x:longint):boolean;
begin
while x mod 2=0 do x:=x div 2;
while x mod 3=0 do x:=x div 3;
while x mod 5=0 do x:=x div 5;
if x=1 then exit(true) else exit(false);
end;

begin
readln(n);
i:=0;
j:=0;
repeat
inc(i);
if pd(i) then begin
inc(j);
writeln(i);
end;
until j=n;
end.

***************************************************************
版权所有 严禁抄袭
***************************************************************
var i,j,n:longint
begin
readln(n);
while j<n do begin
inc(i);
if (i=1)or(i mod 3=0)or(i mod 2=0)or(i mod 5=0) then inc(j);
end;
writeln(i);
end.

var n,i,j:longint;
begin
read(n);
while n>0 do begin
inc(i);
if (i=1)or(i mod 2=0)or(i mod 3=0)or(i mod 5=0)then dec(n);
end;
writeln(i);
end.
我很大