.可以删除若干后，首位为0～

但是不能输出来。。。

居然交了3次，，，，，

注意串首有若干0的情况,甚至整个字符串都是0的情况.

var n:string;

s,i,j,k:integer;

begin

readln(n);

readln(s);

while s>0 do

begin

i:=1;

while (i

LZRP低不讲去0

无语了.....

一定要细心.....

inc和delete的差别=0ms和超时的差别...

是puppy慢了还是真的差那么多？

删数问题

贪心

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

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

Accepted 有效得分：100 有效耗时：0ms

考虑0的情况就ok了~~

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

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

Accepted 有效得分：100 有效耗时：0ms

var st:string; n,j,i,k:longint;

begin

readln(st);

readln(n);

k:=length(st);

for j:=1 to n do

begin

i:=1;

while (st[i]

第3000个提交的..

这个题目不知道要不要考虑最后是0的状况

i:=1;

while (s[i]='0') do inc(i);

q:=true;

for n:=i to length(s) do begin write(s[n]); q:=false; end;

if q then writeln(0);

我最后只作了这样子的处理..

鄙视用C++的，更BS用#define aaa era##se的

你们被C++给惯坏了，用C的字符串一般都当数组玩，字符串函数都不带用的，其中的乐趣你们是体会不到的。

顺便说下楼下，我想也该是1412，没办法，给人家抢了……

题号怎么不是1412呢

被0阴了3次！我的AC率啊

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

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

Accepted 有效得分：100 有效耗时：0ms

题号是意思意思，竟然让我叫了N遍

各位看看楼下的题解吧

BT的数据是

输入10086

　　 3

输出0

2：输入10086

　　 2

输出6

3：输入806

　　 2

输出0

方法不说。。。

至于N个零大家都知道了吧

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

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

Accepted 有效得分：100 有效耗时：0ms

红书P36,超管用。

忽略了几个语句

酿成大错~~

亲爱的AC率··········

强烈bs此题，题目太痤了。

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

红书36.....

it's so easy!

超时的，有可能是删前导零的时候碰到0000000000000这种情况没有判断剩余长度至少要为1.

program P1414;

var

st :string;

tell :boolean;

n,i,j :longint;

begin

assign(input,'P1414.in'); reset(input);

assign(output,'P1414.out'); rewrite(output);

readln(st);

readln(n);

for i:=1 to n do

begin

tell:=false;

for j:=1 to length(st)-1 do

begin

if st[j]>st[j+1] then

begin

tell:=true; delete(st,j,1); break;

end;

end;

if tell=false then delete(st,length(st),1);

end;

while (length(ts)>1) and (st[1]='0') do delete(st,1,1);

writeln(st);

close(input);

close(output);

end.

小贪心。

痛苦wa一次。。。。。0啊。。