整整做了30min

当初根本没看懂什么意思，这题不难，但是不好描述，出在普及组就怕看不懂……

我怎么看半天也没看懂啊？？？！！！

郁闷！！！

小蒋同学诶，人家代码给你U盘带回去不是让你这样搞的好不好啊？你要理解！即使理解了，在没经过他人同意的情况下也不能随便乱发！更何况拿来炫耀。

证据：劲航代码里的jam变量打成了jim，你居然……照吃不误

小蒋同学诶，人家代码给你U盘带回去不是让你这样搞的好不好啊？你要理解！即使理解了，在没经过他人同意的情况下也不能随便乱发！更何况拿来炫耀。

证据：劲航代码里的jam变量打成了jim，你居然……

纯属抄袭我的代码！

胜利的彼岸

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var jim:string;

x,y,w,n,i,j:longint;

begin

readln(x,y,w);

readln(jim);

n:=0;

while n0) do dec(i);

if i=0 then break;

jim[i]:=succ(jim[i]);

for j:=1 to w-i do jim:=chr(ord(jim[i])+j);

writeln(jim);

end;

end.

你还说得出口：

农夫山泉有点甜！

可恶！

我能叫出你的名字：蒋一逍！

我的历年程序代码给你盗窃了！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var jim:string;

x,y,w,n,i,j:longint;

begin

readln(x,y,w);

readln(jim);

n:=0;

while n0) do dec(i);

if i=0 then break;

jim[i]:=succ(jim[i]);

for j:=1 to w-i do jim:=chr(ord(jim[i])+j);

writeln(jim);

end;

end.

农夫山泉有点甜

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

...我只能说水的不能在水了...

那个起始的数字读进来根本没用...无语ing...

下付程序：（注意读的start根本没用）

#include

#include

#include

long lon,start,end;

char s[30]={'\0'};

void init()

{

scanf("%ld%ld%ld%*c",&start,&end,&lon);

scanf("%s",s);

}

short chuli(char *x)

{

long t,i;

short flag;

char ch[30];

t=lon-1;

while (1)

{

memset(ch,'\0',sizeof(ch));

flag=1;

for (i=t;iend+96)

{

flag=0;

break;

}

}

if (flag==1) break;

t--;

if (t

编译通过...

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

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

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

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

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

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

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

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

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

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

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

var t,s,w,i,j,k:longint;

st:string;

a:array[0..1000]of longint;

begin

readln(s,t,w);

readln(st);

for i:=1 to 5 do

for j:=w downto 1 do

if not(ord(st[j])-ord('a')+1>=t-(w-j))then

begin

st[j]:=succ(st[j]);

for k:=j+1 to w do

st[k]:=succ(st[k-1]);

writeln(st);

break;

end;

end.

比较简练了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program jam;

const d:array[1..26]of char=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');

var

i,j,m,n,x,z:longint;

c:array[1..100]of char;

a:array[1..100]of longint;

procedure print;

var

i:longint;

begin

inc(z); if z>5 then exit;

for i:=1 to m do write(d[a[i]]);

writeln;

end;

begin

readln(x,n,m);

for i:=1 to m do read(c[i]); readln;

for i:=1 to m do a[i]:=ord(c[i])-96;

repeat

i:=m;

while (i>0)and(a[i]=n-(m-i)) do dec(i);

if i>0 then

begin

a[i]:=a[i]+1;

for j:=i+1 to m do a[j]:=a[j-1]+1;

end;

print;

until i=0;

end.

第一百题 留名

55，我怎么办哦，老是看人家的，真的好想自己做出来哦！不过说一句——楼下的楼下的楼下的脑子有病！

楼下的楼下太没素质....

楼下烧饼

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program noip06_pj_3;

var a:array[0..26]of integer;

s,t,w,i,j,n,x:integer;

st:string;

begin

readln(s,t,w);

n:=t-s+1;

readln(st);

for i:=1 to w do

a[i]:=ord(st[i])-ord('a')+2-s;

for i:=1 to 5 do

begin

if a[w]+1>n then

begin

x:=w-1;

while a[x]+1>n+x-w do dec(x);

if x

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var n,t,s,w,i,j,x,k,c:longint;

st:string;

a:array[0..1000]of longint;

begin

readln(s,t,w);

n:=t-s+1;

for i:=1 to w do read(st[i]);

for i:=1 to w do

a[i]:=ord(st[w-i+1])-ord('a')+1+1-s;

for i:=1 to 5 do

begin

if a[1]+1>n then

begin

x:=2;

while a[x]+1>n-x+1 do inc(x);

a[x]:=a[x]+1;

c:=0;

for k:=x-1 downto 1 do

begin

inc(c);

a[k]:=a[x]+c;

end;

end

else a[1]:=a[1]+1;

if a[w+1]>0 then halt

else

for j:=w downto 1 do write(chr(a[j]+ord('a')-1+s-1),' ');

writeln;

end;

end.

Flag 　　 Accepted

题号 　　P1318

类型(?) 　　模拟

通过 　　2486人

提交 　　3777次

通过率 　　66%

难度 　　1

麻烦了点

发一个不一样的解法

var s,t,w,i,j,tt,k,l:longint;

st:string;

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

begin

readln(s,t,w);

readln(st);

for i:=1 to w do a[i]:=ord(st[i])-ord('a')+1;

K:=0;

while (k