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/12/21 23:14:00
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≤

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.
水题

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:用自然语言描述算法:判断数N是否为素数 free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例:输入3456789:3456789345(就像这几个数围成一圈) pascal编程:哥德巴赫猜想题目描述输入N(N 组数字 pascal【问题描述】把n个数进行排列,会用许许多多不同的数字,请找出所有新数(表示后来排成的数)中的最大数.(不用一个个列出来算)【输入格式】输入仅两行.输入n,表示有n个数. 关于pascal的几道题目走迷宫(Maze) 【问题描述】 已知一N×N的迷宫,允许往上、下、左、右四个方向行走,现请你找出一条从左上角到右下角的最短路径. 【输入数据】 输入数据有若干行,第一 pascal高精度拆分整数 【问题描述】 输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相 pascal判断三角形的问题输入三角形的3个边长,判断他是直角三角形,等边三角形,等腰三角形,还是普通的三角形?请问我哪里错了?求大神指教. pascal编程计算输入数中偶数的平均值 输入数据以-1结束试题描述 编程计算所有输入的数中偶数的平均值.输入数据以-1结束.输入要求 一行,若干个数输出要求 一行,一个数,保留两位小数输入 pascal问题(与二维数组有关)1、蛇形排数(snake.pas/c/cpp)【问题描述】同学A遇到一个难题,要求是输入一个整数N,输出一个N行N列的方阵,方阵为蛇形数字组合.他想请你帮忙解决一下这个难题. 寻找素数 pascal问题描述:已知 N 和 M 两个正整数,求 N 至 M 之间(包括 N 和 M)有多少个素数.输入:共一行:两个正整数数 N 和 M,中间以一个空格隔开.输出:一个正整数:表示 N 至 M 之间(包 一个简单C语言题的问题.描述 请判断一个数是不是水仙花数.其中水仙花数定义各个位数立方和等于它本身的三位数.输入有多组测试数据,每组测试数据以包含一个整数n(100 【问题描述】输入一个正整数,判断该数从高位到低位各位数字是否按值从小到大排列并输出相应提示.例如,输入12234,该数各位数字是从小到大排列,则输出yes;又如,输入12354,该数各位数字不 pascal 输入n(1 pascal 输入n(1 pascal函数找回文数试题描述】 找出10000以内的回文数. 从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.【输入描述】 无【输出描述】 输出只有一行,包括所有符合条件的回 用pascal编写程序 输入十个整数,统计大于0的数的个数.用pascal编写程序输入十个整数,统计大于0的数的个数. free pascal问题问题共有三题,我是新手,1.输入一个自然数n(n