pascal 输入判断H数 【问题描述】 所谓H 数是指:仅包含质因子2,3,5,7的数.例如:2,3,4,5,6,7,8,9,10 均为H数但 11 不是H数,12是H数,13不是H数,.给出一个N (10≤n≤10000),求出由小到大的第N 个H 数.例
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 22:52:59
pascal 输入判断H数 【问题描述】 所谓H 数是指:仅包含质因子2,3,5,7的数.例如:2,3,4,5,6,7,8,9,10 均为H数但 11 不是H数,12是H数,13不是H数,.给出一个N (10≤n≤10000),求出由小到大的第N 个H 数.例
pascal 输入判断H数
【问题描述】
所谓H 数是指:仅包含质因子2,3,5,7的数.
例如:
2,3,4,5,6,7,8,9,10 均为H数
但 11 不是H数,12是H数,13不是H数,.
给出一个N (10≤n≤10000),求出由小到大的第N 个H 数.
例如:当N=6 时,输出:7
【输入】:
一个整数N
【输出】:
一个整数(由小到大的第N 个H 数)
pascal 输入判断H数 【问题描述】 所谓H 数是指:仅包含质因子2,3,5,7的数.例如:2,3,4,5,6,7,8,9,10 均为H数但 11 不是H数,12是H数,13不是H数,.给出一个N (10≤n≤10000),求出由小到大的第N 个H 数.例
var j,i,n:longint;
function sb(l:qword):boolean;
begin
sb:=false;
if l1 then begin
while l mod 2=0 do l:=l div 2;
while l mod 3=0 do l:=l div 3;
while l mod 5=0 do l:=l div 5;
while l mod 7=0 do l:=l div 7;
if l=1 then sb:=true;
end;
end;
begin
read(n);
repeat
inc(i);
if sb(i) then inc(j);
until j=n;
write(i);
end.
水题