PASCAL代码：按序输出1至n间所有偶数及代码详细解释

```pascal program PrintEvenNumbers; var n, i: integer; begin // 读取输入的n readln(n); // 遍历1到n for i := 2 to n do begin // 判断是否为偶数 if (i mod 2 = 0) then begin // 输出偶数 write(i); // 若不是最后一个偶数，输出空格 if (i < n - (n mod 2)) then write(' '); end; end; writeln; end. ``` 代码解释 1. 变量声明： - `n`：用于存储用户输入的上限值。 - `i`：作为循环变量，用于遍历从 2 到 `n` 的所有数字。 2. 读取输入：使用 `readln(n)` 读取用户输入的 `n`。 3. 循环遍历：使用 `for` 循环从 2 开始遍历到 `n`。 4. 判断偶数：使用 `i mod 2 = 0` 判断当前数字 `i` 是否为偶数。 5. 输出偶数：如果是偶数，使用 `write(i)` 输出该偶数。 6. 输出空格：如果当前偶数不是最后一个偶数，使用 `write(' ')` 输出一个空格。 7. 换行：最后使用 `writeln` 换行。 ######[AI问答 | 337点数解答 | 2025-12-07 12:35:40]