Pascal 代码揭秘：求解使 1²+2²+…+x²>n 的最小 x 值

```pascal program FindMinX; var n, x, sum: longint; begin // 读入整数 n readln(n); x := 1; sum := 0; // 计算 1*1 + 2*2 + ... + x*x 直到和大于 n while sum <= n do begin sum := sum + x * x; x := x + 1; end; // 输出最小的 x writeln(x - 1); end. ``` 代码解释 1. 变量声明：`n` 用于存储输入的整数，`x` 是循环变量，`sum` 用于累加平方和。 2. 输入读取：使用 `readln(n)` 读取输入的整数 `n`。 3. 初始化：`x` 初始化为 1，`sum` 初始化为 0。 4. 循环计算：使用 `while` 循环，不断累加 `x` 的平方到 `sum` 中，直到 `sum` 大于 `n`。 5. 输出结果：由于循环结束时 `x` 已经加 1，所以输出 `x - 1`。 ######[AI问答 | 289点数解答 | 2025-12-13 19:54:44]