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/07/12 19:22:54
![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 数.例](/uploads/image/z/10447991-71-1.jpg?t=pascal+%E8%BE%93%E5%85%A5%E5%88%A4%E6%96%ADH%E6%95%B0+%E3%80%90%E9%97%AE%E9%A2%98%E6%8F%8F%E8%BF%B0%E3%80%91%E3%80%80%E6%89%80%E8%B0%93H+%E6%95%B0%E6%98%AF%E6%8C%87%EF%BC%9A%E4%BB%85%E5%8C%85%E5%90%AB%E8%B4%A8%E5%9B%A0%E5%AD%902%2C3%2C5%2C7%E7%9A%84%E6%95%B0.%E4%BE%8B%E5%A6%82%EF%BC%9A2%2C3%2C4%2C5%2C6%2C7%2C8%2C9%2C10+%E5%9D%87%E4%B8%BAH%E6%95%B0%E4%BD%86+11+%E4%B8%8D%E6%98%AFH%E6%95%B0%2C12%E6%98%AFH%E6%95%B0%2C13%E4%B8%8D%E6%98%AFH%E6%95%B0%2C.%E7%BB%99%E5%87%BA%E4%B8%80%E4%B8%AAN+%EF%BC%8810%E2%89%A4n%E2%89%A410000%EF%BC%89%2C%E6%B1%82%E5%87%BA%E7%94%B1%E5%B0%8F%E5%88%B0%E5%A4%A7%E7%9A%84%E7%AC%ACN+%E4%B8%AAH+%E6%95%B0.%E4%BE%8B)
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.
水题