递归求数字反转(Pascal程序)
发布网友
发布时间：2023-06-26 15:36
共1个回答
热心网友
时间：2023-10-27 12:55
【分析】：
首先读入整数n，先判断n的正负，若n=0则输出0再halt，若n<0则输出负号并把n取反；然后先把n末尾的零都删去，再不断取n的末位输出即可。
【参考程序】：
const v=10;
var n:longint;
procere work(m:longint);
begin
if m=0 then exit;
write(m mod v);
m:=m div v;
work(m);
end;
begin
readln(n);
if n=0 then
begin
write(0);
halt;
end;
if n<0 then
begin
write('-');
n:=-n;
end;
while n mod v=0 do
n:=n div v;
work(n);
end.
【评测网址】：http://www.tyvj.cn/Problem_Show.aspx?id=1688
追问为什么错误200？追答没问题啊、？我测了很多次了
error 200是被零除，程序中有加特判啊、、、
