Pascal快递你
答案:4 悬赏:30 手机版
解决时间 2021-11-21 18:09
- 提问者网友：謫仙
- 2021-11-20 19:30
Pascal快递你
最佳答案
- 五星知识达人网友：蕴藏春秋
- 2021-11-20 20:25
枚举就行了。我试了一下，答案不会超过1835421。追问要程序追答我随便给你打了一个。
var k, n: longint;
s: extended;
begin
read (k);
s := 0;
for n := 1 to 1000000000 do
begin
s := s + 1/n;
if (s > k) then break;
end;
writeln (n);
end.
var k, n: longint;
s: extended;
begin
read (k);
s := 0;
for n := 1 to 1000000000 do
begin
s := s + 1/n;
if (s > k) then break;
end;
writeln (n);
end.
全部回答
- 1楼网友：拾荒鲤
- 2021-11-21 00:19
????
- 2楼网友：雾月
- 2021-11-20 23:00
这是埃及分数吧。额。枚举。不过可能有误差
- 3楼网友：举杯邀酒敬孤独
- 2021-11-20 21:30
只有15种情况
可以挂表
可以挂表
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯