一开始全写delete，出现乱七八糟错误一堆

然后我改成de1ete，瞬间AC

太……无词形容

（我一开始就看到了好像是de1ete不是delete，但我还傻乎乎地认为是样例打错了！）

汗……

细节阿!!

但愿NOIP别挂在这种题上..

var n:longint; s,st:array[1..10000] of string; a,b,c,d:longint;procedure init;var i:longint;begin readln(n); for i:=1 to n do readln(s[i]);end;procedure outit;var i:longint;begin for i:=1 to n do writeln(st[i]);end;procedure main;var i,l:longint; f:boolean;begin init; for i:=1 to n do begin f:=true; l:=length(s[i]); for a:=1 to l-3 do if f then for b:=a+1 to l-2 do if f then for c:=b+1 to l-1 do if f then for d:=c+1 to l do if f then begin if (s[i][a]=s[i]) and (s[i][c]=s[i][d]) then begin st[i]:='de1ete'; f:=false; end; if (s[i][a]=s[i][d]) and (s[i][c]=s[i]) then begin st[i]:='de1ete'; f:=false; end; end; if f then st[i]:='safe'; end; outit;end;begin main;end.

编译通过...├ 测试数据 01：答案正确... 0ms├ 测试数据 02：答案正确... 0ms├ 测试数据 03：答案正确... 0ms├ 测试数据 04：答案正确... 0ms├ 测试数据 05：答案正确... 0ms├ 测试数据 06：答案正确... 0ms├ 测试数据 07：答案正确... 0ms├ 测试数据 08：答案正确... 0ms├ 测试数据 09：答案正确... 0ms├ 测试数据 10：运行超时...

以上是我在NOIP之前做的

一下是1月10日做的

var n,i:longint;

procedure init;

begin readln(n);

end;

procedure main;

var i,l:longint;

a,b,c,d:longint;

s:string;

begin

readln(s);

l:=length(s);

for a:=1 to l-3 do

for b:=a+1 to l-2 do

for c:=b+1 to l-1 do

for d:=c+1 to l do

begin

if (s[a]=s) and (s[c]=s[d]) then begin writeln('de1ete'); exit; end;

if (s[a]=s[d]) and (s[c]=s**) then begin writeln('de1ete'); exit; end;

end;

writeln('safe');

end;

begin

init;

for i:=1 to n do main;

end.

**

一个输出的问题 那么复杂··

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

用Dragon最后一点超时

用Dolphin秒杀

是不是Dragon有问题啊，害我提交了7次以上

太简单了..

15分钟搞定..

大家加油啊..

编译通过...

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

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

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

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

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

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

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

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

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

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

过程 print(a:string);

var

i1,i2,i3,i4:integer;

len:integer;

begin

len:=length(a);

if len

de1ete

囧题留名

不知道为什么大家的程序很麻烦的样子，10的长度穷举就行

就是:

Main Code:

for i:=1 to length(s) do

for j:=2 to length(s) do

for k:=3 to length(s) do

for l:=4 to length(s) do

if (i>j)and(j>k)and(k>l)

then if (a[i]=a[l])and(a[j]=a[k])

then ...

else if (a[i]=a[j])and(a[l]=a[k])

then ...

原来是1啊！！！！！！！！！！！！！

我程序里一个'de1ete'是复制的，另外一个是输入的'delete'，0分

抗议！！！！！！！！！！！

编译通过...

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

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

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

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

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

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

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

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

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

├ 测试数据 10：答案错误...　├ 标准行输出 de1e...

　├ 错误行输出 safe

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

Unaccepted 有效得分：90 有效耗时：0ms

大侠们

请告诉我我的程序为什么错了一个点？？？？？？

有什么漏洞吗？

Please.......

#include

#include

int main()

{int n,i,j,x,y,k,p;

char s[10001];

int sum;

scanf("%d\n",&n);

for(k=1;k

不要贪心，否则绝对orz....我的4个贪心法程序都20分。

以下是ac的code.

#include

int main()

{

int j,n,k,a,b,c,d;

char tmp[11];

scanf("%d",&n);gets(tmp);

for(j=0; j

@￥@￥%%@%%@%@%……%￥……#@@@￥@…………&**#￥@！！￥#￥#@￥@%￥#￥#￥#

de1ete！！！！！！！！！！！！

1111111111111111111111111111111111111111111111111111111111

无语！！……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

出题的学没学过英语？？？？知不知道删除是de'L(它的小写字母)'ete而不是de'1'(数字)ete???我现在想用火星语了:**&&^%!@#\(#\)#@!\[#%^&\*\*^^%\]\(##@#\)\(%^^&\*&&&^%%^&&\*&^%\)*\(\*%\)%\(\*%^\*&\*^^#&\)(*^&*........

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

……………………郁闷的水题，四重循环就行了

不过输入实在~~@^#&*@^\(@&\)^%@*\(@(!#!#(\)………………小心空格~~~

输出也很WS……#$%@%&*^&*(&……千万不要输出'delete'!

要输出'de'+数字'1'+'ete'~~~

program xinxi;

var

a:array[1..10000]of string;

n,i,len:longint;

x:string;

procedure bi;

var

i1,j,k,g:longint;

flag:boolean;

begin

flag:=true;

for i1:=1 to len-3 do

for j:=i1+1 to len-2 do

for k:=j+1 to len-1 do

for g:=k+1 to len do

begin

if ((x[i1]=x[j])and(x[k]=x[g]))or((x[i1]=x[g])and(x[j]=x[k]))

then begin

a[i]:='de1ete';

flag:=false;

break;

end;

end;

if flag=true

then a[i]:='safe';

end;

begin

fillchar(a,sizeof(a),' ');

readln(n);

for i:=1 to n do

begin

readln(x);

len:=length(x);

if len

水题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

de'1'ete 我无语了　还我100分啊

1.有空格

2.可以AAAA

3.delete别打错了。。

n^2预处理可过

program fliter;

var s:string;

n,i,m:longint;

into:array[1..10] of boolean;

flag:boolean;

procedure work(i,a:longint);

var ii,jj,alen:longint;

ansarr:array[1..4] of longint;

begin

if flag or (i>length(s)+1) then exit;

if a>4 then begin

alen:=0;

for ii:=1 to length(s) do

if into[ii] then begin

alen:=alen+1;

ansarr[alen]:=ord(s[ii]);

end;

if ((ansarr[1]=ansarr[4]) and (ansarr[2]=ansarr[3])) or ((ansarr[1]=ansarr[2]) and (ansarr[3]=ansarr[4])) then begin

flag:=true;

exit;

end;

end

else begin

into[i]:=true;

work(i+1,a+1);

into[i]:=false;

work(i+1,a);

end;

end;

begin

readln(n);

for i:=1 to n do begin

fillchar(into,sizeof(into),false);

flag:=false;

readln(s);

work(1,1);

if flag then writeln('de1ete')

else

writeln('safe');

end;

end.

很脑残的递归写法…………