发布网友 发布时间: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是被零除,程序中有加特判啊、、、