编译通过...

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

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

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

├ 测试数据 04：答案错误...程序输出比正确答案长

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

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

　├ 错误行输出

├ 测试数据 07：答案错误...程序输出比正确答案长

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

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

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

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

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

#include

#include

int main()

{ long i,s,ISBN[10]={0},i1,is1=3,a,isb1,i2,is2=8,isb2,t,cj=0;

long isbn[4];

for(i=0;i1)

{ isb1=i1%10;

i1=i1/10;

ISBN[is1]=isb1;

is1--;

}

i2=fabs(isbn[2]);

while(i2>1)

{ isb2=i2%10;

i2=i2/10;

ISBN[is2]=isb2;

is2--;

}

ISBN[9]=fabs(isbn[3]);

for(t=0;t

记录编号 Flag 得分 记录信息 环境 评测机 程序提交时间

R1086229 Accepted 100 From suning－

　P1484 FPC Vivid Puppy 2008-12-4 10:18:43

R1086228 Unaccepted 50 From suning－

　P1484 FPC Vivid Puppy 2008-12-4 10:17:50

R1086227 Unaccepted 0 From suning－

　P1484 FPC Vivid Puppy 2008-12-4 10:14:12

额~~~第一次余数为10没注意，第二次x小写了，第三次终于过了

人品阿

水题！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