作业帮free pascal的题目
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/08 04:41:46
free pascal的题目
一个数如果只有因子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
一个数如果只有因子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
来一个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.
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.