↓= =还是错的
这题要考虑的很多
终于AC了
#include<iostream>
using namespace std;
int c;
bool f;
int main(){
long a,b;
cin>>a;
c=0;
f=false;
do
{b=a%10;
if (b!=0){
f=true;
}
c++;
if ((b==0) and (not(f))){
c--;
}
if ((b!=0) or ((c>1)) and (f)){
if(c>=2){
if(b<0){
b=b*-1;
cout<<b;
}
else{
cout<<b;
}
}
else{
cout<<b;
}
}
a/=10;}
while(a!=0);
}

↓错了 贴了旧代码 应该是:
#include<iostream>
using namespace std;
int c;
int main(){
int a,b;
cin>>a;
c=0;
do
{b=a%10;
c++;
if (b!=0){
if(c>=2){
if(b<0){
b=b*-1;
cout<<b;
}
else{
cout<<b;
}
}
else{
cout<<b;
}
}
a/=10;}
while(a!=0);
}

c++代码 不用string 取各个位加上判断就行
#include<iostream>
using namespace std;
int c;
int main(){
int a,b;
cout<<"请输入一个数:";
cin>>a;
c=0;
do
{b=a%10;
c++;
if (b!=0){
if(c>=2){
if(b<0){
b=b*-1;
cout<<b;
}
}
else{
cout<<b;
}
}
a/=10;}
while(a!=0);
}

使用类似高精度读入的方法输出反转后的数，注意数的最后可能不止一位是0.

program xf;

var

s:string;

a,i,j,n:longint;

begin

readln(s);

n:=1;

if s[1]='-' then begin

write('-');

n:=2

end;

a:=length(s);

while s[a]='0' do a:=a-1;

for j:=a downto n do write(s[j]);

end.

var

a,b:longint;

s:string;

begin

read(a);

str(a,s);

if s[1]='-'

then

begin

　　write('-');

　　delete(s,1,1);

end;

a:=length(s);

if s[1]'0' then while s[a]='0'do dec(a);

for b:=a downto 1 do write(s);

end.

var

a,b:longint;

s:string;

begin

read(a);

str(a,s);

if s[1]='-'

then

begin

write('-');

delete(s,1,1);

end;

a:=length(s);

if s[1]'0' then while s[a]='0'do dec(a);

for b:=a downto 1 do write(s);

end.

v

vv

明日NOIP，见一水题，刷之以应。

点这里查看程序源码+详细题解

编译通过...

├ 测试数据 01：答案正确... (0ms, 672KB)

├ 测试数据 02：答案正确... (0ms, 672KB)

├ 测试数据 03：答案正确... (0ms, 672KB)

├ 测试数据 04：答案正确... (0ms, 672KB)

├ 测试数据 05：答案正确... (0ms, 672KB)

├ 测试数据 06：答案正确... (0ms, 672KB)

├ 测试数据 07：答案正确... (0ms, 672KB)

├ 测试数据 08：答案正确... (0ms, 672KB)

├ 测试数据 09：答案正确... (0ms, 672KB)

├ 测试数据 10：答案正确... (0ms, 672KB)

---|---|---|---|---|---|---|---|-

Accepted / 100 / 1ms / 672KB

ac25纪念

var s,v:string;

q,o,c:integer;

begin

read(s);

c:=0;

if s[1]='-'then begin

v:=copy(s,2,length(s)-1);

write('-');

end

else v:=s;

for q:=length(v)downto 1 do if v[q]'0' then break else c:=c+1;

o:=length(v)-c;

for q:=o downto 1 do write(v[q]);

end.

var

  st:string;

  i,len:longint;

begin

  readln(st);

  if st[1]='-' then begin write('-');delete(st,1,1);end;

  len:=length(st);

  while st[len]='0' do dec(len);

  for i:=len downto 1 do write(st[i]);

end.

var

 s:string;

 i,k:longint;

begin

 read(s);

 if s[1]='-'then begin write('-'); delete(s,1,1);  end;

 k:=length(s);

 if s='0'then write(0) else

 begin

 while s[k]='0' do dec(k);

 for i:=k downto 1 do

  write(S[i]);

 end;

end.

赵啊，我第一次超越您那！（时间短）

编译通过...

├ 测试数据 01：答案正确... (0ms, 652KB)

├ 测试数据 02：答案正确... (0ms, 652KB)

├ 测试数据 03：答案正确... (0ms, 652KB)

├ 测试数据 04：答案正确... (0ms, 652KB)

├ 测试数据 05：答案正确... (0ms, 652KB)

├ 测试数据 06：答案正确... (0ms, 652KB)

├ 测试数据 07：答案正确... (0ms, 652KB)

├ 测试数据 08：答案正确... (0ms, 688KB)

├ 测试数据 09：答案正确... (0ms, 688KB)

├ 测试数据 10：答案正确... (0ms, 688KB)

编译通过...

├ 测试数据 01：答案正确... (0ms, 580KB)

├ 测试数据 02：答案正确... (0ms, 580KB)

├ 测试数据 03：答案正确... (0ms, 580KB)

├ 测试数据 04：答案正确... (856ms, 580KB)

├ 测试数据 05：答案正确... (0ms, 580KB)

├ 测试数据 06：答案正确... (0ms, 580KB)

├ 测试数据 07：答案正确... (0ms, 580KB)

├ 测试数据 08：答案正确... (0ms, 580KB)

├ 测试数据 09：答案正确... (0ms, 580KB)

├ 测试数据 10：答案正确... (0ms, 580KB)

---|---|---|---|---|---|---|---|-

Accepted / 100 / 856ms / 580KB

朴素秒杀

{

ID:darkgod-z

PROG:vijos P1756

HANG:PASCAL

}

var

s:string;

i,l:integer;

begin

readln(s);

if s[1]='-' then begin

write('-');

delete(s,1,1);

end;

l:=length(s);

while s[l]='0' do dec(l);

for i:=l downto 1 do write(s[i]);

end.

2啊，noip2011A程WA了