水题！water！

http://blog.sina.com.cn/s/blog_5d716dbe0100bdxb.html

题解再这里，比较垃圾的算法，但思路简单......

program aa;

var

a:array[1..13] of char;

i,j,s:integer;

t:char;

begin

for i:=1 to 13 do read(a[i]);

s:=s+(ord(a[1])-48)*1;

s:=s+(ord(a[3])-48)*2;

s:=s+(ord(a[4])-48)*3;

s:=s+(ord(a[5])-48)*4;

s:=s+(ord(a[7])-48)*5;

s:=s+(ord(a[8])-48)*6;

s:=s+(ord(a[9])-48)*7;

s:=s+(ord(a[10])-48)*8;

s:=s+(ord(a[11])-48)*9;

if s mod 11=10 then t:='X'

else t:=chr(s mod 11+48);

if t=a[13] then write('Right') else

begin

for i:=1 to 12 do

write(a[i]);

write(t);

end;

end.

过此题只为刷题数。。。

program vijos1484;

var

isbn:string;

ans:char;

sum,i:longint;

procedure count;

begin

inc(sum,ord(isbn[1])-48);

inc(sum,(ord(isbn[3])-48)*2);

inc(sum,(ord(isbn[4])-48)*3);

inc(sum,(ord(isbn[5])-48)*4);

inc(sum,(ord(isbn[7])-48)*5);

inc(sum,(ord(isbn[8])-48)*6);

inc(sum,(ord(isbn[9])-48)*7);

inc(sum,(ord(isbn[10])-48)*8);

inc(sum,(ord(isbn[11])-48)*9);

sum:=sum mod 11;

if sum=10 then ans:='X' else ans:=chr(sum+48);

end;

begin

readln(isbn);

sum:=0;

count;

if isbn[13]=ans then writeln('Right') else begin

for i:=1 to 12 do write(isbn[i]);

write(ans);

end;

end.

3 min killed.

d d d d d

program isbn;

var

i,j,k,ans:longint;

s:string;

ch:char;

procedure flink;

begin

assign(input,'isbn.in');

reset(input);

assign(output,'isbn.out');

rewrite(output);

end;

procedure fclose;

begin

close(input);

close(output);

end;

begin

flink;

readln(s);

j:=0;

i:=1;

ans:=0;

while j

program p1484;

var

str,str1:string;

i,k,s:longint;

begin

readln(str);

str1:=str;

for i:=1 to 3 do

begin

k:=pos('-',str);

str:=copy(str,1,k-1)+copy(str,k+1,length(str));

end;

s:=0;

for i:=1 to 9 do

s:=(s+(ord(str[i])-48)*i) mod 11;

if str[10]='X'

then

if s=10

then

begin

writeln('Right');

halt;

end

else

else

if s=ord(str[10])-48

then

begin

writeln('Right');

halt;

end;

if s=10 then str1[13]:='X'

else

str1[13]:=chr(s+48);

writeln(str1);

end.

第400个提交~~~活活 好巧

和我今年的分数一样~~~(番茄鸡蛋尽管砸来 偶反正400已到手)

话说这个'X'我也是调试时发现的~~~

不过 今年普及组的题 MS比去年简单点~~~~

NOIP 时 我没看到 要处理X这句话

草 水题丢了70分

199，在前二百……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

秒水题就是爽……

Flag 　　Accepted

题号 　　P1484

类型(?) 　　字符串处理

通过 　　199人

提交 　　376次

通过率 　　53%

难度 　　1

我给提了1点通过……

'X'影响心情

汗。

这道题本来要ac的

结果考试忘了X

靠。

丢了50分

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

据说X害死好多人？

做一道水题调节一下心情

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

AC！！！！！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

water

第101个

最后个个X害死我啦~~~~~

var

s:string;

ans:longint;

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

cc:char;

i,j,k,l,m,n:longint;

begin

readln(s);

l:=length(s);

ans:=0;

m:=1;

for i:=1 to l-1 do begin

if (s[i] in ['0'..'9']) then begin

ans:=ans+(ord(s[i])-48)*m;

inc(m);

end;

end;

ans:=ans mod 11;

if ans=10 then begin

if s[l]='X' then begin

writeln('Right');

halt;

end else begin

s[l]:='X';

writeln(s);

end;

end else begin

cc:=chr(ans+48);

if cc=s[l] then begin

writeln('Right');

halt;

end else begin

s[l]:=cc;

writeln(s);

end;

end;

end.

第100ac 很好

留念

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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