编写函数,将行参n所指变量中,各位上的偶数去除,剩余的按原顺序输出。不用求余方法做,换一种比如数组? 20
展开全部
procedure abc(n:longint);
var s:string; i:integer;
begin
str(n,s);
for i:=length(s) downto 1 do
if odd(ord(s[i])) then write(s[i]);
end;
writeln;
end;
var s:string; i:integer;
begin
str(n,s);
for i:=length(s) downto 1 do
if odd(ord(s[i])) then write(s[i]);
end;
writeln;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
