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