label 1;
var q,w:integer;
n,s:string;
begin
w:=0;
readln(n);
if ord(n[1])=45 then begin
w:=length(n);
s:=copy(n,2,length(n)-1);
w:=0;
write('-');
end
else s:=n;
for q:=length(s)to 1 do begin
if ord(s[q])48 then goto 1
end;
1:for w:=1 downto q do write(s[w]);
end.
无结果
4 条评论
-
Ko_Knight LV 8 @ 2013-08-11 18:26:25
for q:=length(s) to 1 do begin
貌似是**downto**吧、、、、 -
@ 2013-08-04 19:03:13
试试读取字符串
var n:integer; -
@ 2012-11-04 20:32:42
文举，其实你没错，只是太粗心那！
再仔细看看，to和downto，有没用错呢！当然有啊！
第十四行应用downto，第十七行也应用downto啊！ -
@ 2012-11-03 22:46:58
去你的杨文举
自己拿几组数据试试
实在不会发消息给我，我给你讲讲
- 1
