free pascal的题目

Question

一个数如果只有因子2、3、5或7,那么这样的数就叫做神奇数。数据序列1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 27,是前20个神奇数。

写程序求出数据序列的第n个神奇数

输入：

一个整数n（1 <= n
<= 5842）

输出

对应每个输入的n值，输出如下形式的格式：The nth
humble number is number

例子输入

3

4

11

100

例子输出

The 3th humble number is 3

The 4th humble number is 4

The 11th humble number is 12

The 100th humble number is 450

Answer 1

来一个PASCAL的程序：
const a:array[1..4]of integer=(2,3,5,7);
var n,m,i:integer;
function humble(x:integer):boolean;
var i:integer;
begin
humble:=true;
for i:=1 to 4 do
begin
while x mod a[i]=0 do x:=x div a[i];
if x=1 then exit
end;
humble:=false
end;
begin
readln(n); m:=n; i:=0;
while m>0 do
begin
inc(i);
if humble(i) then dec(m);
end;
writeln('Then ',n,'th humble is ',i);
end.