按照由小到大的顺序，输出1∼n之间的所有偶数。 2<=n<=100 输入 输入n。 输出 输出为一行，各个偶数之间用一个空格隔开。 样例输入 复制 10 样例输出 复制 2 4 6 8 10 用PASCAL代码

```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` 换行。 [2025-12-07 12:35:40 | AI问答 | 337点数解答]