用PASCAL输出：对于小数 𝑥 , 𝑦 : 𝑥 的最小值为多少时， 𝑆 𝑥 的值会大于 𝑦 ？  其中:  𝑆 𝑥 = 1 1 + 1 2 + 1 3 + . . . + 1 𝑥 输入 输入 𝑦 在 范围[0.0, 15.0]之间。 输出 输出 𝑥 样例输入 复制 15.0 样例输出 复制 1835421

```pascal program HarmonicSum; var y: real; x: longint; sum: real; begin readln(y); x := 1; sum := 0.0; while sum <= y do begin sum := sum + 1 / x; x := x + 1; end; writeln(x - 1); end. ``` [2025-12-27 19:39:27 | AI问答 | 89点数解答]