本文共 518 字，大约阅读时间需要 1 分钟。

n, m, c: longint;begin    assign(input, 'reverse.in');    reset(input);    assign(output, 'reverse.out');    rewrite(output);    readln(n);    if n < 0 then        begin            n := -n;            write('-');        end;    m := 0;    while n > 0 do    begin        m := m * 10 + n mod 10;        n := n div 10;    end;    writeln(m);    close(input);    close(output);end.

这段代码实现了将一个数字反转的功能。具体来说，它首先读取一个整数n，如果n是负数，则添加一个负号。然后通过循环逐步将n的每一位数字提取出来，并按相反顺序组合成一个新的数字m。循环结束后，m的值即为n的反转数。这个过程不需要额外的空间复杂度，仅使用了一个额外的变量m来存储中间结果。

转载地址：http://sojfk.baihongyu.com/