pascal 输入判断H数 加分!
发布网友
发布时间：2022-04-24 02:28
共4个回答
热心网友
时间：2023-10-22 01:10
program hshu;
var
i,n,m,x,y:longint;
t,w:boolean;
begin
readln(n);
m:=0;
y:=1;
repeat
y:=y+1;{从2开始}
x:=y;{让x代替i做被分解的工作}
t:=true;
repeat
w:=false;
for i:=2 to 7 do
if x mod i=0
then
if (i=2) or (i=3) or (i=5) or (i=7)
then
begin
x:=x div i;
w:=true;{如果符合h数的因子，那么便赋值为true}
end
else
begin
t:=false;{如果不符合h数的因子，那么便赋值为false（这里是指2—7之间不符合h数的因子}
break;
end;
until (x=1) or (t=false) or (w=false);{三种情况下结束：1.分解结束；2.出现2—7之间不符合h数的因子3.出现2—7以外的 因子}
if (t=true) and (w=true)
then m:=m+1;{符合条件的话，这边是个h数，同时这也是第m个h数（m:=m+1后的m）}
until m=n;{直到这是第n个}
write(y);{输出该数}
end.追问8也是 但没有
热心网友
时间：2023-10-22 01:11
var j,i,n:longint;
function sb(l:qword):boolean;
begin
sb:=false;
if l<>1 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.
水题
热心网友
时间：2023-10-22 01:11
abs 绝对值
pi 圆周率
round 四舍五入
trunc 截去小数部分
sqr 平方
sqrt 平方根
odd 判断奇数
chr 输入序号返回字符串
ord 输入字符串返回序号
random 生成随机数
randomize 初始化随机数
length(s) 求字符串s的长度
copy(s,w,k) 复制字符串s的第w开始的k位
val(s,k,code) 字符串s转换成数值k，错误代码为code
str(k,s) 将数值k转换成字符串s
delete(s,w,k) 删除字符串s中从w开始的k位
insert(s1,s,w) 将s1插入到s的第w位
pos(s1,s) 查找s1在s中的位置
+ 连接两个字符串
热心网友
时间：2023-10-22 01:12
//AC不超时
var
n,t1,t2,t3,t4,i,k:longint;
q:array[0..10000] of longint;
begin
readln(n);
q[1]:=1;
t1:=1;t2:=1;t3:=1;t4:=1;//当前乘以x最小的那个数的位置
for i:=2 to n do
begin
k:=q[t1]*2;
if k>q[t2]*3 then k:=q[t2]*3;
if k>q[t3]*5 then k:=q[t3]*5;
if k>q[t4]*7 then k:=q[t4]*7;
q[i]:=k;
if q[t1]*2=k then inc(t1);
if q[t2]*3=k then inc(t2);
if q[t3]*5=k then inc(t3);
if q[t4]*7=k then inc(t4);
end;
writeln(q[n]);
end.
热心网友
时间：2023-10-22 01:10
program hshu;
var
i,n,m,x,y:longint;
t,w:boolean;
begin
readln(n);
m:=0;
y:=1;
repeat
y:=y+1;{从2开始}
x:=y;{让x代替i做被分解的工作}
t:=true;
repeat
w:=false;
for i:=2 to 7 do
if x mod i=0
then
if (i=2) or (i=3) or (i=5) or (i=7)
then
begin
x:=x div i;
w:=true;{如果符合h数的因子，那么便赋值为true}
end
else
begin
t:=false;{如果不符合h数的因子，那么便赋值为false（这里是指2—7之间不符合h数的因子}
break;
end;
until (x=1) or (t=false) or (w=false);{三种情况下结束：1.分解结束；2.出现2—7之间不符合h数的因子3.出现2—7以外的 因子}
if (t=true) and (w=true)
then m:=m+1;{符合条件的话，这边是个h数，同时这也是第m个h数（m:=m+1后的m）}
until m=n;{直到这是第n个}
write(y);{输出该数}
end.追问8也是 但没有
热心网友
时间：2023-10-22 01:11
var j,i,n:longint;
function sb(l:qword):boolean;
begin
sb:=false;
if l<>1 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.
水题
热心网友
时间：2023-10-22 01:11
abs 绝对值
pi 圆周率
round 四舍五入
trunc 截去小数部分
sqr 平方
sqrt 平方根
odd 判断奇数
chr 输入序号返回字符串
ord 输入字符串返回序号
random 生成随机数
randomize 初始化随机数
length(s) 求字符串s的长度
copy(s,w,k) 复制字符串s的第w开始的k位
val(s,k,code) 字符串s转换成数值k，错误代码为code
str(k,s) 将数值k转换成字符串s
delete(s,w,k) 删除字符串s中从w开始的k位
insert(s1,s,w) 将s1插入到s的第w位
pos(s1,s) 查找s1在s中的位置
+ 连接两个字符串
热心网友
时间：2023-10-22 01:12
//AC不超时
var
n,t1,t2,t3,t4,i,k:longint;
q:array[0..10000] of longint;
begin
readln(n);
q[1]:=1;
t1:=1;t2:=1;t3:=1;t4:=1;//当前乘以x最小的那个数的位置
for i:=2 to n do
begin
k:=q[t1]*2;
if k>q[t2]*3 then k:=q[t2]*3;
if k>q[t3]*5 then k:=q[t3]*5;
if k>q[t4]*7 then k:=q[t4]*7;
q[i]:=k;
if q[t1]*2=k then inc(t1);
if q[t2]*3=k then inc(t2);
if q[t3]*5=k then inc(t3);
if q[t4]*7=k then inc(t4);
end;
writeln(q[n]);
end.
热心网友
时间：2023-10-22 01:10
program hshu;
var
i,n,m,x,y:longint;
t,w:boolean;
begin
readln(n);
m:=0;
y:=1;
repeat
y:=y+1;{从2开始}
x:=y;{让x代替i做被分解的工作}
t:=true;
repeat
w:=false;
for i:=2 to 7 do
if x mod i=0
then
if (i=2) or (i=3) or (i=5) or (i=7)
then
begin
x:=x div i;
w:=true;{如果符合h数的因子，那么便赋值为true}
end
else
begin
t:=false;{如果不符合h数的因子，那么便赋值为false（这里是指2—7之间不符合h数的因子}
break;
end;
until (x=1) or (t=false) or (w=false);{三种情况下结束：1.分解结束；2.出现2—7之间不符合h数的因子3.出现2—7以外的 因子}
if (t=true) and (w=true)
then m:=m+1;{符合条件的话，这边是个h数，同时这也是第m个h数（m:=m+1后的m）}
until m=n;{直到这是第n个}
write(y);{输出该数}
end.追问8也是 但没有
热心网友
时间：2023-10-22 01:11
var j,i,n:longint;
function sb(l:qword):boolean;
begin
sb:=false;
if l<>1 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.
水题
热心网友
时间：2023-10-22 01:10
program hshu;
var
i,n,m,x,y:longint;
t,w:boolean;
begin
readln(n);
m:=0;
y:=1;
repeat
y:=y+1;{从2开始}
x:=y;{让x代替i做被分解的工作}
t:=true;
repeat
w:=false;
for i:=2 to 7 do
if x mod i=0
then
if (i=2) or (i=3) or (i=5) or (i=7)
then
begin
x:=x div i;
w:=true;{如果符合h数的因子，那么便赋值为true}
end
else
begin
t:=false;{如果不符合h数的因子，那么便赋值为false（这里是指2—7之间不符合h数的因子}
break;
end;
until (x=1) or (t=false) or (w=false);{三种情况下结束：1.分解结束；2.出现2—7之间不符合h数的因子3.出现2—7以外的 因子}
if (t=true) and (w=true)
then m:=m+1;{符合条件的话，这边是个h数，同时这也是第m个h数（m:=m+1后的m）}
until m=n;{直到这是第n个}
write(y);{输出该数}
end.追问8也是 但没有
热心网友
时间：2023-10-22 01:11
abs 绝对值
pi 圆周率
round 四舍五入
trunc 截去小数部分
sqr 平方
sqrt 平方根
odd 判断奇数
chr 输入序号返回字符串
ord 输入字符串返回序号
random 生成随机数
randomize 初始化随机数
length(s) 求字符串s的长度
copy(s,w,k) 复制字符串s的第w开始的k位
val(s,k,code) 字符串s转换成数值k，错误代码为code
str(k,s) 将数值k转换成字符串s
delete(s,w,k) 删除字符串s中从w开始的k位
insert(s1,s,w) 将s1插入到s的第w位
pos(s1,s) 查找s1在s中的位置
+ 连接两个字符串
热心网友
时间：2023-10-22 01:11
var j,i,n:longint;
function sb(l:qword):boolean;
begin
sb:=false;
if l<>1 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.
水题
热心网友
时间：2023-10-22 01:12
//AC不超时
var
n,t1,t2,t3,t4,i,k:longint;
q:array[0..10000] of longint;
begin
readln(n);
q[1]:=1;
t1:=1;t2:=1;t3:=1;t4:=1;//当前乘以x最小的那个数的位置
for i:=2 to n do
begin
k:=q[t1]*2;
if k>q[t2]*3 then k:=q[t2]*3;
if k>q[t3]*5 then k:=q[t3]*5;
if k>q[t4]*7 then k:=q[t4]*7;
q[i]:=k;
if q[t1]*2=k then inc(t1);
if q[t2]*3=k then inc(t2);
if q[t3]*5=k then inc(t3);
if q[t4]*7=k then inc(t4);
end;
writeln(q[n]);
end.
热心网友
时间：2023-10-22 01:11
abs 绝对值
pi 圆周率
round 四舍五入
trunc 截去小数部分
sqr 平方
sqrt 平方根
odd 判断奇数
chr 输入序号返回字符串
ord 输入字符串返回序号
random 生成随机数
randomize 初始化随机数
length(s) 求字符串s的长度
copy(s,w,k) 复制字符串s的第w开始的k位
val(s,k,code) 字符串s转换成数值k，错误代码为code
str(k,s) 将数值k转换成字符串s
delete(s,w,k) 删除字符串s中从w开始的k位
insert(s1,s,w) 将s1插入到s的第w位
pos(s1,s) 查找s1在s中的位置
+ 连接两个字符串
热心网友
时间：2023-10-22 01:12
//AC不超时
var
n,t1,t2,t3,t4,i,k:longint;
q:array[0..10000] of longint;
begin
readln(n);
q[1]:=1;
t1:=1;t2:=1;t3:=1;t4:=1;//当前乘以x最小的那个数的位置
for i:=2 to n do
begin
k:=q[t1]*2;
if k>q[t2]*3 then k:=q[t2]*3;
if k>q[t3]*5 then k:=q[t3]*5;
if k>q[t4]*7 then k:=q[t4]*7;
q[i]:=k;
if q[t1]*2=k then inc(t1);
if q[t2]*3=k then inc(t2);
if q[t3]*5=k then inc(t3);
if q[t4]*7=k then inc(t4);
end;
writeln(q[n]);
end.
