freepascal的问题如图
发布网友
发布时间：23小时前
共1个回答
热心网友
时间：9分钟前
var n:longint;
begin
read(N);
while (n>0)and(n mod 10 =0) do
n:=n div 10;
repeat
write(n mod 10);
n:=n div 10;
until n=0;
writeln;
end.
