| 比赛 | 防止颓废的小练习v0.15 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 数字反转 | 最终得分 | 100 |
| 用户昵称 | 这_不错 | 运行时间 | 0.001 s |
| 代码语言 | Pascal | 内存使用 | 0.17 MiB |
| 提交时间 | 2016-10-17 16:03:25 | ||
var
a:string;
i,j,n:integer;
begin
assign(input,'reverse.in');
reset(input);
assign(output,'reverse.out');
rewrite(output);
readln(a);
n:=1;
if a[1]='-' then
begin
write('-');
n:=2;
end;
i:=length(a);
while a[i]='0' do i:=i-1;
for j:=i downto n do
write(a[j]);
close(input);
close(output);
end.