点这里查看
讨论 / 求正解
maosayun 2012-04-16 21:31:00
点我顶贴 收藏 删除
1465hJ

#1 mahaozhou@2012-04-16 21:24:00
回复 删除
给你

var

n:string;

i:longint;

begin

readln(n);

if n[1]='-' then

begin

write('-');

delete(n,1,1);

end;

while n[length(n)]='0' do

delete(n,length(n),length(n));

for i:=length(n) downto 1 do

write(n[i]);

end.

#2 maosayun@2012-04-16 21:24:00
回复 删除
回复 楼主maosayun 的帖子

方法

#3 mahaozhou@2012-04-16 21:27:00
回复 删除
字符串

字符串，去掉0，有‘-’先输‘-’

#4 wangdingli@2012-04-16 21:27:00
回复 删除
自带的说法

自己悟

#5 maosasa@2012-04-16 21:31:00
回复 删除
gg
查看更多回复
提交回复