编译通过...

├ 测试数据 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

题目不难,就是逻辑判断大家要小心啊……为了一个判断浪费我20分钟啊！！！！！

為了一個邏輯判斷WA了三次。。冤。。

注意一下各位

当"-"在首位和末位时是直接输出的.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

.... 話説題目有提示說要用AnsiString麽？ = =

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

额。。。。。。。。。。。。。。。。。。

八次三杀？

Program NOIP20072(Input,Output);

Var

p1,p2,p3,n,i,j,l,a,b:ShortInt;

x:Integer;

st:String;

k:Char;

c:Array[1..128] Of Char;

Procedure go;

Begin

If p1=3 Then For j:= 1 To x Do c[j]:='*' Else

Begin

l:=1;

For j:= 1 To x Do

Begin

c[j]:=Chr(a+l);

If j Mod p2 =0 Then l:=l+1;

End;

If (p1=2) And (a>=Ord('a')) Then

For j:= 1 To x Do

c[j]:=Chr(Ord(c[j])+Ord('A')-Ord('a'));

If p3=2 Then

For j:= 1 To (x Div 2 +1) Do

Begin

k:=c[j];

c[j]:=c[x+1-j];

c[x+1-j]:=k ;

End;

End;

For j:= 1 To x Do Write(c[j]);

End;

Begin

Readln(p1,p2,p3);

Read(st);

n:=Length(st);

For i:= 1 To n Do

If (st[i]='-') Then

If st

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

VS_FLY刚刚完成了一次三杀~！！

Holy Shit!!

Owning!!

编译通过...

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

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

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

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

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

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

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

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

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

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

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

真的很简单 一次ac~~

华丽的飘过~~~~~

ps：100%模拟

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

AC in 20 lines.

#include

#include

#include

long p1,p2,p3,l;

char s[200];

int main()

{

char j;

long i,k;

scanf("%ld%ld%ld%s",&p1,&p2,&p3,s);

l=strlen(s);

for(i=0;i0 && is && (isalpha(s)&&isalpha(s)||isdigit(s)&&isdigit(s)))

{

for(j=(1==p3?s+1:s-1);1==p3?js;1==p3?++j:--j)

for(k=1;k

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

去年一次AC的今年2次AC。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

问个问题：如果读一个字符串s，如果输出s[0],那输出的是什么？

我第7个点就卡在了第一个字符是-；

第6组数据是什么？？？

程序输出比标准输出长。。。。。。

其他都0ms过了

就差这一组了

救命啊！！

编译通过...

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

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

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

├ 测试数据 04：运行时错误...|错误号: 4210904

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

├ 测试数据 06：运行时错误...|错误号: 4210924

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

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

├ 测试数据 09：运行时错误...|错误号: 4210932

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

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

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

为什么呀?

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这题我交了4次才对，有两次是因为while(1)忘了删，我的AC率又降了一个百分点……

T_T 555555555...........

Standard Program(c++):

#include

int main(){

printf("You don\'t want to copy my program!\n");

return 0;

}

Standard Program(pascal):

Program p1379

begin

writeln('You don\'t want to copy my program!');

end.

编译通过...

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

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

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

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

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

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

　├ 错误行输出

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

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

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

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

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

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

07Noi时候很奇怪的这道题只得了90分... 到现在不知道那个程序错哪了... 原班不动的又敲了一遍放上了就AC

这题目没什么好说的，

很基础的考察，

主要都是考察基础知识，

没有什么特别难的。

就两个字

细节！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program expand;

var

p1,p2,p3,i,k:integer;

s:string;

a:ansistring;

t:boolean;

procedure jisuan(s1,s2:char);

var

i,j:integer;

begin

t:=false;

if s2=succ(s1) then exit;

if p3=1 then

for i:=ord(succ(s1)) to ord(pred(s2)) do

for j:=1 to p2 do

case p1 of

1:a:=a+chr(i);

2:a:=a+upcase(chr(i));

3:a:=a+'*';

end{case1}

else for i:=ord(pred(s2)) downto ord(succ(s1)) do

for j:=1 to p2 do

case p1 of

1:a:=a+chr(i);

2:a:=a+upcase(chr(i));

3:a:=a+'*';

end;{case2}

end;

begin

assign(input,'expand.in');

assign(output,'expand.out');

reset(input);

readln(p1,p2,p3);

readln(s);

close(input);

a:=a+s[1];

for i:=2 to length(s) do

begin

t:=true;

if s[i]='-' then

if ((s in ['0'..'9'])and(s in ['0'..'9']))or((s in ['a'..'z'])and(s in ['a'..'z'])) then

if s>s then

jisuan(s,s);

if t then a:=a+s[i];

end;

rewrite(output);

writeln(a);

close(output);

end.