279 条题解
-
0
Max_SM LV 8 @ 2013-08-29 15:29:30
秒过100分！！！！！！
var s,g:string;
a:array[0..100000]of longint;
max,man,i,j,l,x,y:longint;
begin
readln(s);
i:=1;
max:=length(s);
man:=ord(s[max])-48;
for l:=1 to max-2 do
if s[l]<>'-' then begin a[i]:=ord(s[l])-48;x:=x+(a[i]*i);inc(i); end;
y:=x mod 11;
if y=man then begin writeln('Right');halt;end else
if (y<>man) and (y<10) then
begin for i:=1 to max-1 do
write(s[i]);
writeln(y);
halt;
end;
if y>=10 then
begin
if man=40 then
begin
writeln('Right');
halt;
end;
for i:=1 to max-1 do
write(s[i]);
writeln('X');
halt;
end;
end. -
0
吼吼~~看看哥的奇葩题解~*（貌似是个渣。。。）*
var a:string;s:longint;
begin
readln(a);
s:=((ord(a[1])-48)*1+(ord(a[3])-48)*2+(ord(a[4])-48)*3+(ord(a[5])-48)*4+(ord(a[7])-48)*5+(ord(a[8])-48)*6+(ord(a[9])-48)*7+(ord(a[10])-48)*8+(ord(a[11])-48)*9) mod 11;
if s=10 then s:=ord('X')-48;if ord(a[13])-48=s then writeln('Right') else writeln(copy(a,1,12)+chr(s+48));
end. -
0
#include<stdio.h>
int main()
{
int a,b,c,d,e,f,j,k,m,n;
scanf("%d-%d%d%d-%d%d%d%d%d-%d",&a,&b,&c,&d,&e,&f,&j,&k,&m,&n);
{
int s=0,t;
s=a*1+b*2+c*3+d*4+e*5+f*6+j*7+k*8+m*9;
if(n=s%11)
printf("Right");
else
{
t=s%11;
printf("%d-%d%d%d-%d%d%d%d%d-%d",a,b,c,d,e,f,j,k,m,t);
}}
return 0;
}-
lingmingxiao2002 @ 2014-09-13 15:55:37
好方法，简洁
-
-
0
1515440237 LV 10 @ 2013-07-22 18:08:03
五分钟了还是Judging
-
0
#include
using namespace std;
int main ( )
{
string ISBN;
cin >> ISBN;
int sum = 0;
char identifier;
sum += ( ISBN[0] - '0' ) * 1;
sum += ( ISBN[2] - '0' ) * 2;
sum += ( ISBN[3] - '0' ) * 3;
sum += ( ISBN[4] - '0' ) * 4;
sum += ( ISBN[6] - '0' ) * 5;
sum += ( ISBN[7] - '0' ) * 6;
sum += ( ISBN[8] - '0' ) * 7;
sum += ( ISBN[9] - '0' ) * 8;
sum += ( ISBN[10] - '0' ) * 9;
sum %= 11;
identifier = sum + '0';
if ( ( identifier - '0' ) == 10 )//当mod11=10时还要判断识别码正确的情况，我就是忽略了这一步导致一直是50分。
{
if ( ISBN[12] == 'X' )
{
cout -
0
丿SEX丶elope LV 8 @ 2012-11-08 22:15:20
这题真心沾了我一身水。。。。。。。。。。。。。。
点这里查看程序源码+详细题解
-
0
zhshcheng1 LV 8 @ 2012-10-16 22:39:07
var
a:array[1..16] of longint;
n:string; b,p:longint;
begin
readln(n); for c:=1 to 13 do a[c]:=-1;
for c:=1 to 13 do
if n[c]'-' then a[c]:=ord(n[c])-ord('0');
for c:=1 to 11 do
if a[c]-1 then begin p:=p+1;d:=a[c]*p+1; end;
b:=b mod 11;
if a[13]=b then write('Right') else begin
n[13]:=chr(b+ord('0'));
write(n);
end;
end.
为什么错？ -
0
var a:string; i,x:integer;
begin
read(a);
delete(a,2,1);
delete(a,5,1);
delete(a,10,1);
for i:=1 to 9 do
x:=x+i*(ord(a[i])-48);
x:=x mod 11;
if a[10]'x'
then
begin
if x=(ord(a[10])-48)
then write('right')
else
begin
insert('-',a,2); insert('-',a,6);insert('-',a,12);if x=10 then a[13]:='x' else a[13]:=char((x mod 11)+48);
write(a);
end;
end
else
if x=10
then write('right')
else
begin
insert('-',a,2); insert('-',a,6);insert('-',a,12);if x=10 then a[13]:='x' else a[13]:=char((x mod 11)+48);
write(a);
end;
end. -
0
Program isbn;
var s,sss:string;
s1,s2,s3,s4,s5,s6,s7,s8,s9,ss:string;
a:array[1..10] of integer;
t:integer;
n:integer;
code:integer;procedure init;
begin
read(s);
end;procedure main;
var i:integer;
begin
s1:=s[1]; s2:=s[3]; s3:=s[4]; s4:=s[5]; s5:=s[7];
s6:=s[8]; s7:=s[9]; s8:=s[10]; s9:=s[11]; ss:=s[13];
val(s1,a[1],code);
val(s2,a[2],code);
val(s3,a[3],code);
val(s4,a[4],code);
val(s5,a[5],code);
val(s6,a[6],code);
val(s7,a[7],code);
val(s8,a[8],code);
val(s9,a[9],code);
val(ss,a[10],code);
for i:=1 to 9 do
t:=t+a[i]*i;
t:=t mod 11;
if t=10 then sss:='X';
if (t=10) and (s[13]='X') then write('Right')
else
if (t10) and (a[10]=t) then write('Right')
else
begin
delete(s,13,1);
if t10 then
begin
str(t,ss);
insert(ss,s,13);
write(s);
end
else
begin
insert(sss,s,13);
write(s);
end;
end;
end;begin
init;
main;
end. -
0
program isbn;
var
a:array[1..13] of char;
i,c,k:integer;
b:char;
begin
for i:=1 to 13 do read(a[i]);
k:=1;
for i:=1 to 11 do
if ord(a[i])ord('-')
then
begin
c:=(ord(a[i])-48)*k+c;
k:=k+1;
end;
c:=c mod 11;
if c=10 then b:='x'
else
b:=chr(c+48);
if b=a[13] then write('Right')
else
begin
a[13]:=b;
for i:=1 to 13 do write(a[i]);
end;
end. -
0
#include
int main(void){long a, b, c, d, result = -1, cnt; if ((scanf("%ld-%ld-%ld-%ld", &a, &b, &c, &d)) == 4) result = d; cnt = ((a*1) + ((b/100)*2 + (b%100/10)*3 + (b%100%10)*4) +((c/10000)*5 + (c%10000/1000)*6 + (c%10000%1000/100)*7 +(c%10000%1000%100/10)*8 + (c%10000%1000%100%10)*9)) % 11; if ((cnt == result) || (cnt == 10 && result == -1)) printf("Right\n"); else printf("%ld-%ld-%ld-%c\n", a, b, c, cnt == 10 ? 'X' : cnt+'0'); return 0;}AC!
-
0
lanqingfeng LV 7 @ 2010-03-07 13:45:53
var
a:array[1..13] of char; s,i,j:integer;
b:array[1..10] of integer;
begin
j:=1; s:=0;
for i:=1 to 12 do
begin
read(a[i]);
if (a[i]>='0') and (a[i] -
0
l1214742009 LV 4 @ 2010-03-02 13:42:42
program ISBN;
var s,ans,ch:string;
i,j,an:longint;
begin
read(s);
j:=1;
i:=1;
while j='0') and (s[i] -
0
luchangxi1 LV 5 @ 2009-11-08 21:32:42
var
b:string; lcx:char; i,s,j:longint; a:array[1..10] of integer;
begin
s:=0; j:=0;
for i:=1 to 13 do
begin read(lcx); if lcx'-' then begin inc(j); a[j]:=ord(lcx)-ord('0'); end; b[i]:=lcx; end;
for i:=1 to 9 do s:=s+a[i]*i;
s:=s mod 11;
if s=10 then lcx:='X'
else lcx:=chr(s+ord('0'));
if lcx=b[13] then write('Right')
else begin b[13]:=lcx; for i:=1 to 13 do write(b[i]); end;
end.
Max_SM
LV 8
@ 2013-08-29 15:29:30
