Pascal 实现：轻松计算 1 到 10¹⁰ 内整数的因子个数

```pascal program FactorCount; var n: int64; count: integer; i: int64; begin // 读取输入的整数 n readln(n); count := 0; // 遍历从 1 到 n 的所有数，检查是否为 n 的因子 for i := 1 to n do begin if n mod i = 0 then count := count + 1; end; // 输出因子的个数 writeln(count); end. ``` 这段Pascal代码的功能是计算并输出给定整数 `n` 的因子个数。首先，程序会读取用户输入的整数 `n`。然后，通过一个 `for` 循环从 `1` 到 `n` 遍历每个数，检查该数是否为 `n` 的因子，如果是，则将计数器 `count` 加 `1`。程序输出计数器 `count` 的值，即 `n` 的因子个数。 ######[AI问答 | 232点数解答 | 2025-12-13 21:42:19]