Pascal实现：从个位开始分离整数每一位数字的代码揭秘

```pascal program SeparateDigits; var num, digit: integer; begin // 读取输入的整数 readln(num); // 当num不为0时，继续分离数字 while num > 0 do begin // 取出num的个位数字 digit := num mod 10; // 输出个位数字 write(digit, ' '); // 去掉num的个位数字 num := num div 10; end; end. ``` 这段Pascal代码首先读取用户输入的整数`num`。然后使用`while`循环，只要`num`大于0，就通过取模运算`mod`得到`num`的个位数字`digit`，并将其输出。之后使用整除运算`div`去掉`num`的个位数字。如此循环，直到`num`变为0，这样就完成了从个位开始依次分离每一位数字的任务，且数字之间以空格分隔。 ######[AI问答 | 224点数解答 | 2025-12-07 12:42:31]